ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander Babanov 2:5020/5609.69 17 Jun 2001 18:43:46
To : Slava Korchagin
Subject : Re: Удалить из массива одинаковые элементы
--------------------------------------------------------------------------------
Юґullo Slava!
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> }
SK> @array = sort { $hash{$a} <=> $hash{$b} } keys(%hash);
SK> print @array;
@array = qw/a b c b c c 1 2 3 4 5 2 4 2 5 0/;
$h{$_}++ foreach @array;
print sort keys %h;
CYa!!!
ЪДВїЪДВВВДДДщщъъ ЪДВВВДї ЪїЪДВДДДДДДДДщщъъ ЪДДДД 2:5020/5609.69 ДДДї
іВіАґДЕ ґBabanov іВі ґВі іАґВіST BERSERKER і babanov@earthlink.net і
... Еще наше поколение будет жить при Виагре! [предп. из писем Ильича к HКК]
---
* Origin: Our governor can beat up your governor! (2:5020/5609.69)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
