ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/400     22 Jul 2002  11:59:47
 To : Yuriy Kaminskiy
 Subject : Re: ***Помогите
 -------------------------------------------------------------------------------- 
 

 Здравствуй, Yuriy Kaminskiy.
 
  VAS>>> удалением совпадений (типа sort -u в shell) и занести обратно в массив??
  AC>> { my %seen; @array = sort {$a <=> $b} map { $seen{$_}++ ? (): $_ } @array;
  AC>> }
 YK>  Тогда уж @seen{@array}=(); @array=sort { $a <=> $b } keys %seen; Оно и
 YK>  короче, и быстрее (от 5% в случае уникальных элементов, до _нескольких
 YK>  раз_ в случае большого числа повторяющихся элементов).
 
 Поверил.
 
 -- 
 Artem Chuprina
 Communiware.net
 RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
 --- ifmail v.2.15dev5
  * Origin: Leninsky 45 home network (2:5020/400)
 
 

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