ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Andrey Sapozhnikov                   2:5020/400     10 Sep 2002  02:12:36
 To : Anthony Dragunov
 Subject : Re: php
 -------------------------------------------------------------------------------- 
 

 Anthony Dragunov wrote:
 
 > VG> То есть нужно выкинуть повторяющиеся значения и на основе оставшихся
 > VG> сформировать новый...
 > 
 > my @a = qw( 1 2 3 2 2 2 3 3 2 2 2 3 3 8 7 9 4 3 4 5 5 3 9 0 1 1 3 6 );
 > my @b = ();
 > my %c = ();
 
 Бессмысленные присваивания. @b и так пустой массив. %c и так пустой хэш.
 Ибо только что родились, а рождаются пустыми.
 
 > foreach (@a) { push @b, $_ unless $c{$_}; $c{$_} = 1 } ;
 > 
 > @a - исходный, @b - результат 
 
 Андрей
 
 P.S. Кого я еще не раскритиковал за решение этой простейшей
 задачки? :)
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Re: php   Andrey Sapozhnikov   10 Sep 2002 02:12:36   php   Dmitry Surkoff   10 Sep 2002 10:23:52   Re: php   Andrey Sapozhnikov   10 Sep 2002 15:38:35