ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Yuriy Kaminskiy                      2:5020/517.21  20 Jul 2002  07:54:14
 To : Artem Chuprina
 Subject : Re: ***Помогите
 -------------------------------------------------------------------------------- 
 

 
 >>>>> On 13:09 19/7/2002, Artem Chuprina wrote to "Vladislav A. Shugarov":
  VAS>> удалением совпадений (типа sort -u в shell) и занести обратно в массив??
  AC> { my %seen; @array = sort {$a <=> $b} map { $seen{$_}++ ? (): $_ } @array; 
  AC> }
 
  Тогда уж @seen{@array}=(); @array=sort { $a <=> $b } keys %seen; Оно и короче,
 и быстрее (от 5% в случае уникальных элементов, до _нескольких раз_ в
 случае большого числа повторяющихся элементов).
 -- 
 Yuriy Kaminskiy.
 --- Gnus/5.0808 (Gnus v5.8.8) XEmacs/21.1 (Cuyahoga Valley)
  * Origin: Code is language! http://www.anti-dmca.org (2:5020/517.21@fidonet)
 
 

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