Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Помогите! / 25 сообщений из 41, страница 1 из 2
18.12.2008, 18:59:48
    #35723262
Oscor
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите!
Народ помогите пожалуйста написать прогу!!! А то я вообще не шарю!!!! Плиз!!!!!!!!! Задание такое Из данного списка имен напечатать те которые начинаются на "В"!!!!!!!!!!
...
Рейтинг: 0 / 0
18.12.2008, 19:00:41
    #35723264
Василий Викторович
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите!
Oscor, на каком хоть языке то писать?:)
...
Рейтинг: 0 / 0
18.12.2008, 21:19:18
    #35723431
MasterZiv
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите!
Oscor пишет:
> Плиз!!!!!!!!! Задание такое Из данного списка имен напечатать те которые
> начинаются на "В"!!!!!!!!!!

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
CL-USER> (defvar *in* '(asd bas sdf lqjw ands ndas
                         basd qldk boo foo baaam berg))
*IN*
CL-USER> (remove #\B *in* :test-not #'eql
                  :key (lambda (s) (elt (symbol-name s)  0 )))

(BAS BASD BOO BAAAM BERG)
CL-USER>

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
18.12.2008, 21:45:53
    #35723455
Алексей Морозов
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите!
Код: plaintext
1.
2.
3.
слова_на_б([A]|X, [A]|Z) = A='Б'._, слова_на_б(X, Z);
слова_на_б([A]|X, Z) = ! A='Б'._, слова_на_б(X, Z);
слова_на_б([], []);



Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
18.12.2008, 21:47:48
    #35723459
Алексей Морозов
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите!
SELECT text FROM words WHERE text LIKE 'Б%'
...
Рейтинг: 0 / 0
18.12.2008, 21:59:45
    #35723473
MasterZiv
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите!
Алексей Морозов пишет:

> слова_на_б([A]|X, [A]|Z) = A='Б'._, слова_на_б(X, Z);
> слова_на_б([A]|X, Z) = ! A='Б'._, слова_на_б(X, Z);
> слова_на_б([], []);
Какой йазыг ?
Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
18.12.2008, 22:22:11
    #35723495
Алексей Морозов
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите!
Одна из разновидностей пролога. Переводя на русский язык программу:

[/src]Отношение "слова_на_б" между двумя обьектами T1, T2
Если T1 это пустой список, то и T2 пустой список.

Отношение "слова_на_б" между двумя обьектами T1, T2
T1 - это список из первого элемента A и конца списка X.
A это обьединение строк "_" и любой.
Рекурсивно вычислить "слова_на_б" для остатка списока X и Z.
T2 - это список из первого элемента A и конца списка Z.

Отношение "слова_на_б" между двумя обьектами T1, Z
T1 - это список из первого элемента A и конца списка X.
A это НЕ обьединение строк "_" и любой.
Рекурсивно вычислить "слова_на_б" для остатка списка X и Z.
[/src]
...
Рейтинг: 0 / 0
18.12.2008, 22:22:39
    #35723496
Алексей Морозов
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите!
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Отношение "слова_на_б" между двумя обьектами T1, T2
  Если T1 это пустой список, то и T2 пустой список.

Отношение "слова_на_б" между двумя обьектами T1, T2 
  T1 - это список из первого элемента A и конца списка X. 
  A это обьединение строк "_" и любой. 
  Рекурсивно вычислить "слова_на_б" для остатка списока X и Z.
  T2 - это список из первого элемента A и конца списка Z. 

Отношение "слова_на_б" между двумя обьектами T1, Z
  T1 - это список из первого элемента A и конца списка X. 
  A это НЕ обьединение строк "_" и любой. 
  Рекурсивно вычислить "слова_на_б" для остатка списка X и Z.
...
Рейтинг: 0 / 0
19.12.2008, 12:28:43
    #35724392
Maykie
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите!
OscorНарод помогите пожалуйста написать прогу!!! А то я вообще не шарю!!!! Плиз!!!!!!!!! Задание такое Из данного списка имен напечатать те которые начинаются на "В"!!!!!!!!!!
Код: plaintext
1.
2.
3.
4.
5.
starts_with_b [] = False
starts_with_b ys = (head ys) == 'B'

main = do
	print $ filter starts_with_b ["Boo", "Bar","Foo", "Bee", " B"]
...
Рейтинг: 0 / 0
19.12.2008, 12:35:25
    #35724416
Maykie
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите!
Василий ВикторовичOscor, на каком хоть языке то писать?:)
Самое практичное - на каком нибудь у которого есть онлайн компилятор(типа codepad'а ), чтобы можно было а) проверить б) развлечься с незнакомым языком, но это моё имхо а не топикстартера
...
Рейтинг: 0 / 0
19.12.2008, 13:17:45
    #35724556
Гы
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите!
Код: plaintext
1.
2.
words = %w{asd bas sdf lqjw ands ndas basd qldk boo foo baaam berg}
words.select {|word| word.match /^[B,b].*/}
...
Рейтинг: 0 / 0
19.12.2008, 13:55:16
    #35724665
Алексей Морозов
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите!
MaykieВасилий ВикторовичOscor, на каком хоть языке то писать?:)
Самое практичное - на каком нибудь у которого есть онлайн компилятор(типа codepad'а ), чтобы можно было а) проверить б) развлечься с незнакомым языком, но это моё имхо а не топикстартера


Плохой online-компилятор, он сокеты недает:
Disallowed system call: SYS_socketcall

:(
...
Рейтинг: 0 / 0
19.12.2008, 16:51:19
    #35725198
Ёш
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите!
Гы
Код: plaintext
1.
2.
words = %w{asd bas sdf lqjw ands ndas basd qldk boo foo baaam berg}
words.select {|word| word.match /^[B,b].*/}

Код: plaintext
1.
@x = qw(asd bas sdf lqjw ands ndas basd qldk boo foo baaam berg);
map { print "$_\n" if /^b/i; } @x;
а в руби разве нет i флага у регэкспов ?
...
Рейтинг: 0 / 0
19.12.2008, 16:58:07
    #35725224
Гы
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите!
ЁшГы
Код: plaintext
1.
2.
words = %w{asd bas sdf lqjw ands ndas basd qldk boo foo baaam berg}
words.select {|word| word.match /^[B,b].*/}

Код: plaintext
1.
@x = qw(asd bas sdf lqjw ands ndas basd qldk boo foo baaam berg);
map { print "$_\n" if /^b/i; } @x;
а в руби разве нет i флага у регэкспов ?

Есть, конечно. Забыл :)
...
Рейтинг: 0 / 0
19.12.2008, 17:00:22
    #35725235
Гы
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите!
ГыЁшГы
Код: plaintext
1.
2.
words = %w{asd bas sdf lqjw ands ndas basd qldk boo foo baaam berg}
words.select {|word| word.match /^[B,b].*/}

Код: plaintext
1.
@x = qw(asd bas sdf lqjw ands ndas basd qldk boo foo baaam berg);
map { print "$_\n" if /^b/i; } @x;
а в руби разве нет i флага у регэкспов ?

Есть, конечно. Забыл :)
Код: plaintext
words.select {|word| word.match /^b/i}
...
Рейтинг: 0 / 0
19.12.2008, 18:39:31
    #35725437
manni
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите!
Велик С++ лямбда!
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
#include <algorithm>
#include <string>
#include <iostream>
#include <vector>
#include <functional>
#include <boost/lambda/lambda.hpp>
#include <boost/lambda/loops.hpp>

using namespace boost::lambda;
using namespace std;
int _tmain(int argc, TCHAR *argv[]) 
{ 


	vector<string> strArr;
	strArr.push_back("lol");
	strArr.push_back("Bulk");
	strArr.push_back("bbb");
	strArr.push_back("BigAAFFF");
	strArr.push_back("Bigot");

	remove_copy_if(strArr.begin(),
		strArr.end(),
		ostream_iterator<string>(cout, "\n"),
		_1[ 0 ] != 'B');
						 
	int i;
	std::cin >> i;


	return  0 ; 
}
...
Рейтинг: 0 / 0
19.12.2008, 19:07:21
    #35725466
Гы
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите!
manniВелик С++ лямбда!
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
#include <algorithm>
#include <string>
#include <iostream>
#include <vector>
#include <functional>
#include <boost/lambda/lambda.hpp>
#include <boost/lambda/loops.hpp>

using namespace boost::lambda;
using namespace std;
int _tmain(int argc, TCHAR *argv[]) 
{ 
поскипано
}


Зело многословен ваш цэпэпэ, однако :)
...
Рейтинг: 0 / 0
20.12.2008, 00:28:52
    #35725698
belugin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите!
Код: plaintext
1.
2.
3.
#light
let words = ["asd"; "bas"; "sdf"; "lqjw"; "ands"; "ndas"; "basd"; "qldk"; "boo"; "foo"; "baaam"; "berg"]
words |> List.filter (fun x -> x.ToLower().StartsWith("b") ) |> print_any

Код: plaintext
1.
2.
3.
words = ["asd", "bas", "sdf", "lqjw", "ands", "ndas", "basd", "qldk", "boo", "foo", "baaam", "berg"]
print [x for x in words if x.lower().startswith('b')]
print filter(lambda x:x.lower().startswith('b'), words)
...
Рейтинг: 0 / 0
20.12.2008, 00:50:29
    #35725720
mayton
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите!
Злыдни. Афтор наверное, уже пошёл искать пистолет и один патрон.
...
Рейтинг: 0 / 0
20.12.2008, 01:01:47
    #35725725
belugin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите!
Maykie, haskell1
...
Рейтинг: 0 / 0
20.12.2008, 01:50:49
    #35725755
Гы
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите!
belugin,

А что за языки? Первое что-то ML-подобное, может F#? Второе не узнаю, Nemerle или что?
...
Рейтинг: 0 / 0
20.12.2008, 01:59:14
    #35725759
Гы
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите!
не, больше на питон похоже...
...
Рейтинг: 0 / 0
20.12.2008, 10:32:47
    #35725825
mayton
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите!
Этож Хаскель. Иххх деревня...
...
Рейтинг: 0 / 0
20.12.2008, 10:51:44
    #35725830
Гы
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите!
maytonЭтож Хаскель. Иххх деревня...

Языками не владею, Ваше Блогородие. Паки, паки, иже херувимы... :)

Стоп. Хаскель вроде у Maykie был...
...
Рейтинг: 0 / 0
20.12.2008, 10:55:39
    #35725833
belugin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите!
Гы,

F# и Питон
...
Рейтинг: 0 / 0
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Помогите! / 25 сообщений из 41, страница 1 из 2
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]