ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Помогите!
41 сообщений из 41, показаны все 2 страниц
  все  
Помогите!
    #35723262
Oscor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oscor
Гость
Народ помогите пожалуйста написать прогу!!! А то я вообще не шарю!!!! Плиз!!!!!!!!! Задание такое Из данного списка имен напечатать те которые начинаются на "В"!!!!!!!!!!
...
Рейтинг: 0 / 0
18.12.2008, 18:59:48
| Ответить | Цитировать | Написать  
Помогите!
    #35723264
Фотография Василий Викторович
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Василий Викторович
Участник
Oscor, на каком хоть языке то писать?:)
...
Рейтинг: 0 / 0
18.12.2008, 19:00:41
| Ответить | Цитировать | Написать  
Помогите!
    #35723431
Фотография MasterZiv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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:19:18
| Ответить | Цитировать | Написать  
Помогите!
    #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:45:53
| Ответить | Цитировать | Написать  
Помогите!
    #35723459
Алексей Морозов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Алексей Морозов
Участник
SELECT text FROM words WHERE text LIKE 'Б%'
...
Рейтинг: 0 / 0
18.12.2008, 21:47:48
| Ответить | Цитировать | Написать  
Помогите!
    #35723473
Фотография MasterZiv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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, 21:59:45
| Ответить | Цитировать | Написать  
Помогите!
    #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:11
| Ответить | Цитировать | Написать  
Помогите!
    #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
18.12.2008, 22:22:39
| Ответить | Цитировать | Написать  
Помогите!
    #35724392
Maykie
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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:28:43
| Ответить | Цитировать | Написать  
Помогите!
    #35724416
Maykie
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Maykie
Участник
Василий ВикторовичOscor, на каком хоть языке то писать?:)
Самое практичное - на каком нибудь у которого есть онлайн компилятор(типа codepad'а ), чтобы можно было а) проверить б) развлечься с незнакомым языком, но это моё имхо а не топикстартера
...
Рейтинг: 0 / 0
19.12.2008, 12:35:25
| Ответить | Цитировать | Написать  
Помогите!
    #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:17:45
| Ответить | Цитировать | Написать  
Помогите!
    #35724665
Алексей Морозов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Алексей Морозов
Участник
MaykieВасилий ВикторовичOscor, на каком хоть языке то писать?:)
Самое практичное - на каком нибудь у которого есть онлайн компилятор(типа codepad'а ), чтобы можно было а) проверить б) развлечься с незнакомым языком, но это моё имхо а не топикстартера


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

:(
...
Рейтинг: 0 / 0
19.12.2008, 13:55:16
| Ответить | Цитировать | Написать  
Помогите!
    #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:51:19
| Ответить | Цитировать | Написать  
Помогите!
    #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, 16:58:07
| Ответить | Цитировать | Написать  
Помогите!
    #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, 17:00:22
| Ответить | Цитировать | Написать  
Помогите!
    #35725437
manni
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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, 18:39:31
| Ответить | Цитировать | Написать  
Помогите!
    #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
19.12.2008, 19:07:21
| Ответить | Цитировать | Написать  
Помогите!
    #35725698
belugin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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:28:52
| Ответить | Цитировать | Написать  
Помогите!
    #35725720
Фотография mayton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mayton
Участник
Злыдни. Афтор наверное, уже пошёл искать пистолет и один патрон.
...
Рейтинг: 0 / 0
20.12.2008, 00:50:29
| Ответить | Цитировать | Написать  
Помогите!
    #35725725
belugin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
belugin
Участник
Maykie, haskell1
...
Рейтинг: 0 / 0
20.12.2008, 01:01:47
| Ответить | Цитировать | Написать  
Помогите!
    #35725755
Гы
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гы
Участник
belugin,

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

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

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

F# и Питон
...
Рейтинг: 0 / 0
20.12.2008, 10:55:39
| Ответить | Цитировать | Написать  
Помогите!
    #35725834
belugin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
belugin
Участник
Гы,
хаскель в еще у меня в отдельном сообщении - я чуток укроротил
Еще есть isPrefixOf тогда можно было бы просто написать
Код: plaintext
1.
filter (isPrefixOf "b" words)

но что-то не работает
...
Рейтинг: 0 / 0
20.12.2008, 10:58:42
| Ответить | Цитировать | Написать  
Помогите!
    #35725838
belugin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
belugin
Участник
Код: plaintext
1.
'asd','bas','sdf',"lqjw","ands","ndas","basd","qldk","boo","foo","baaam","berg" | ?{$_.ToLower().StartsWith('b')}
...
Рейтинг: 0 / 0
20.12.2008, 11:05:44
| Ответить | Цитировать | Написать  
Помогите!
    #35725839
Гы
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гы
Участник
beluginГы,

F# и Питон

О. Я угадал :)
...
Рейтинг: 0 / 0
20.12.2008, 11:06:05
| Ответить | Цитировать | Написать  
Помогите!
    #35725986
ещё не написали!
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ещё не написали!
Гость
Код: plaintext
1.
2.
3.
4.
for word in blin shanga vobla braza
do
echo $word|grep '^b'
done
...
Рейтинг: 0 / 0
20.12.2008, 16:34:56
| Ответить | Цитировать | Написать  
Помогите!
    #35726041
Фотография mayton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mayton
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
select f from (
select 'asd' f from dual union
select 'bas' f from dual union
select 'sdf' f from dual union
select 'lqjw' f from dual union
select 'ands' f from dual union
select 'ndas' f from dual union
select 'basd' f from dual union
select 'qldk' f from dual union
select 'boo' f from dual union
select 'foo' f from dual union
select 'baaam' f from dual union
select 'berg' f from dual
) where f like 'b%'
/
...
Рейтинг: 0 / 0
20.12.2008, 18:28:12
| Ответить | Цитировать | Написать  
Помогите!
    #35726054
Фотография SQL_Lamer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SQL_Lamer
Участник
Я сторонник "Индусского" стиля
Код: plaintext
Array.ForEach(new string[] {"asd", "bas", "sdf", "lqjw", "ands", "ndas", "basd", "qldk", "boo", "foo", "baaam", "berg"}, delegate(string s) { if (s.ToUpper().StartsWith("B"))Console.WriteLine(s); });
...
Рейтинг: 0 / 0
20.12.2008, 18:48:27
| Ответить | Цитировать | Написать  
Помогите!
    #35726088
Алексей Морозов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Алексей Морозов
Участник
10 CLS
20 LET AL=12
30 DIM A$(AL)
40 A$(1) = "asd"
50 A$(2) = "bas"
60 A$(3) = "sdf"
70 A$(4) = "lqjw"
80 A$(5) = "ands"
90 A$(6) = "ndas"
100 A$(7) = "basd"
110 A$(8) = "qldk"
120 A$(9) = "boo"
130 A$(10) = "foo"
140 A$(11) = "baaam"
150 A$(12) = "berg"
160 DIM B$(AL)
170 LET BL=0
160 FOR I=1 TO AL
170 LET $X = MID$(A$(I),1,1)
180 IF $X <> "b" AND $X <> "b" THEN GOTO 210
190 LET BL=BL+1
200 LET B$(BL) = $X
210 NEXT I
220 FOR I=1 TO BL
240 PRINT B$(I)
230 NEXT I


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
20.12.2008, 20:15:56
| Ответить | Цитировать | Написать  
Помогите!
    #35726100
Фотография mayton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mayton
Участник
Следующим будет brainfuck?
...
Рейтинг: 0 / 0
20.12.2008, 20:27:53
| Ответить | Цитировать | Написать  
Помогите!
    #35726160
f o r t h
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
f o r t h
Гость
требую Forth))
...
Рейтинг: 0 / 0
20.12.2008, 21:55:21
| Ответить | Цитировать | Написать  
Помогите!
    #35726539
Maykie
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Maykie
Участник
Могущественный редактор вим забыли!
Код: plaintext
1.
:%s/\<[^Bb]\w*//g
...
Рейтинг: 0 / 0
21.12.2008, 15:11:26
| Ответить | Цитировать | Написать  
Помогите!
    #35727154
Фотография Ёш
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ёш
Участник
emacs: M-x list-matching-lines ^b


--
„Истина — это вовсе не то, что можно убедительно доказать, это то, что
делает всё проще и понятнее“ — Антуан де Сент-Экзюпери
...
Рейтинг: 0 / 0
22.12.2008, 10:31:38
| Ответить | Цитировать | Написать  
Помогите!
    #35727215
Фотография MasterZiv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MasterZiv
Участник
Ёш пишет:

> emacs: M-x list-matching-lines ^b

Вот не работает это.

"^" - это начало СТРОКИ, а не слова. :-(
а слово начать можно только через character set.
А классификаторов и якорей в Emacs-е нету.
Т.е. написать вразумительный регексп на поиск
буквы в начале слова и нельзя.
Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
22.12.2008, 10:53:39
| Ответить | Цитировать | Написать  
Помогите!
    #35727300
Фотография Ёш
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ёш
Участник
MasterZiv
Ёш пишет:

> emacs: M-x list-matching-lines ^b

Вот не работает это.

"^" - это начало СТРОКИ, а не слова. :-(
а слово начать можно только через character set.
А классификаторов и якорей в Emacs-е нету.
Т.е. написать вразумительный регексп на поиск
буквы в начале слова и нельзя.
тут скорее проблема в том что list-matching-_lines_ выведет именно строки, а регексп написать можно. там есть тот же \w и ещё \_<
...
Рейтинг: 0 / 0
22.12.2008, 11:19:34
| Ответить | Цитировать | Написать  
Помогите!
    #35727410
regom
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
regom
Участник
Если на CLIPPERE.
а) если данные находятся в DBF-файле FILELIST.DBF с названием поля NAMES.
Тогда
use filelist
list names for substr(names,1,1) $ 'B' off
В этом случае печать происходит на экран монитора
...
Рейтинг: 0 / 0
22.12.2008, 11:55:41
| Ответить | Цитировать | Написать  
Помогите!
    #35727442
Фотография MasterZiv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MasterZiv
Участник
Ёш пишет:

> тут скорее проблема в том что list-matching-_lines_ выведет именно
> строки, а регексп написать можно. там есть тот же \w и ещё \<

\<b - работает.
Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
22.12.2008, 12:05:56
| Ответить | Цитировать | Написать  
Помогите!
    #35727451
Фотография MasterZiv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MasterZiv
Участник
Ёш пишет:

> тут скорее проблема в том что list-matching-_lines_ выведет именно
> строки, а регексп написать можно. там есть тот же \w и ещё \_<


Кстати, в "Оливере Твисте",

6354 matches for "\<b"

т.е. 6354 слова, начинающихся с "b"

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
22.12.2008, 12:08:32
| Ответить | Цитировать | Написать  
41 сообщений из 41, показаны все 2 страниц
  все  
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Помогите!
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=16&tid=1344757]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 174ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 55ms
get tp. blocked users:
 1ms
others: 233ms
total:  499ms
созд. / загр.: 499ms
x
x
Закрыть


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