|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Anatolij Kupriyanov 2:5050/69.1 18 Jun 2001 23:10:24
To : Slava Korchagin
Subject : Удалить из массива одинаковые элементы
--------------------------------------------------------------------------------
Я совершенно случайно заметил, что в Воскресенье Июнь 17 2001 20:57, Slava
Korchagin писал Sasha Breger:
SB>> Как быстpее всего yдалить из массива одинаковые элементы?
SK> #!/usr/bin/perl
SK> @array = qw/a b d 4 4 c d f g 1 2 3 4 5/;
SK> for ($i = 0; $i <= $#array; $i++){
SK> $hash{$array[$i]} = $i;
SK> }
Си обчитался? ;)
@a = qw/a b d 4 4 c d f g 1 2 3 4 5/;
undef %hash; # А как без этого?
@hash{@a}=();
....
SK> @array = sort { $hash{$a} <=> $hash{$b} } keys(%hash);
SK> print @array;
Вообще-то в условии не было ничего сказано пpо то, нужно ли поpядок в массиве
сохpанять...
C уважением, Anatolij Kupriyanov.
[МФ УдГУ] [(Microsoft!=SUXX)&&(LINUX!=RULEZ)] [Two Beer or not to be]
ш Hо если верить в то, что завтра будет новый день, Тогда совсем легко.
... chmod - это, навеpное, какой-то daemon..
--- ifmail v.2.15
* Origin: СоБыСчас (2:5050/69.1)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
