VPF::выбрать из базы все уникальные значения поля

SHUSTER

Дата 27.5.2011, 12:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 22.9.2010

Репутация: нет
Всего: нет

Знаю что задача вполне тривиальная, но главная проблема - хромает знания синтаксиса Perl. Поэтому прошу помощи от знающих - хотелось бы именно код на Перле. Имеется пример на Паскале, но я не знаю как в Перле будет "звучать" следующая строчка из него - "if mas[i] in D then b:=true;"

Код


program tmp;
uses crt;
const count=100;
var mas:array[1..count] of integer;
D:set of byte;
n,i:integer;
b:boolean;
begin
clrscr;
randomize;
readln(n);
for i:=1 to n do begin
                 mas[i]:=random(50);
                 write(mas[i],' ');
                 end;
                 writeln;
D:=[];
b:=false;
for i:=1 to n do begin
                 if mas[i] in D then b:=true;
                 D:=D+[mas[i]];
                 end;
if b then write('yes') else write('no');
readkey;
end.

Pfailed

Дата 27.5.2011, 15:02 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 933
Регистрация: 19.7.2009

Репутация: 2
Всего: 39

Если не ошибаюсь на Perl это решается так

Код


$"="\n", $n=<>, @m=map int rand 50, 1..$n and print "@m\n" and @m{@m}=(), die keys %m == @m ? "no" : "yes"

И не слушайте если вам скажут, что Perl write-only язык.

--------------------

I'm on CPAN
I'm on github

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »