- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #3560 [639]
От : Serge Chervjakov 2:5020/400 16 мая 04, 01:19
Кому : Artem Chuprina 16 мая 04, 20:25
Тема : Re: Проверка на вхождение в массив
-------------------------------------------------------------------------------
From: "Serge Chervjakov"
Sat May 15 2004 22:32, Artem Chuprina wrote to Serge Chervjakov:
SC>> Есть такая хорошая штука - perldoc Benchmark
SC>> называется. Рекомендую всегда обращаться к ней, делая подобные
SC>> заявления, что что-то работает быстрее чего-то. Код тестов
SC>> достаточно большой вышел, потому сюда кидать не буду, но у меня
SC>> получилось что map отработал в примерно 6 раз быстрее. Попробуй у
SC>> себя проделать то же самое. Полезно:).
AC> Ты все-таки код-то приведи. Hа предмет сравнения условий.
Код куда-то потерял... потому прямо сюда вобью, могу и ошибиться где..
sub m
{
my @mas=(1..10000);
my %hash;
%hash=map {$_,$_} @mas;
}
sub f
{
my @mas=(1..10000);
my %hash;
for (my $i=0; $i<10000; $i++) {
$hash{$mas[$i]}=$mas[$i];
}
}
тут с бенчмарком комбинация проводится...
и проверить не могу - перл не могу поставить - оперативка побилась, глюки
страшные идут:((. Винда грузится раза с 5-го, линукс не грузится вообще и комп
страшно нести - это ж на неделю, не меньше заберут:). Правда работать при этом
все равно надо ибо фтп и ssh с серваком работает:)).
--- ifmail v.2.15dev5.3
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)