08.02.2007, 21:55
|
|
Постоянный
Регистрация: 06.06.2006
Сообщений: 515
Провел на форуме:
1985206
Репутация:
963
|
|
Я модифицировал функцию от кибы и получилось вот что:
Код:
sub array_unique
{
my $input=shift;
my %seen;
my $i=0;
foreach(@{$input})
{
delete @{$input}[$i] if $seen{$_};
$seen{$_}=1;
$i++;
}
}
Работает теперь вот так:
Код:
E:\>perl unique.pl
All: 1008176; Unique: 1000000; Time: 8
E:\>
Вызывать ее теперь вот так: array_unique(\@arr);
Последний раз редактировалось KSURi; 08.02.2007 в 22:12..
|
|
|