ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : John Lepikhin                        2:5070/156     24 Mar 2002  16:33:29
 To : All
 Subject : сортировка
 -------------------------------------------------------------------------------- 
 

 @sorted = sort { $a->[0] <=> $b->[0] ||
                  $a->[1] <=> $b->[1] ||
                  $a->[2] <=> $b->[2] } @unsorted;
 
         Работает _на порядок_ медленнее сишного qsort с аналогичной
 функцией сортировки. Все скаляры в массиве - заведомо числовые.
 Как-нибудь можно оптимизировать?
 -- 
 ... [лесные компьютерщики] {allnet} {ptoss}
 --- Gnus/5.0808 (Gnus v5.8.8) XEmacs/21.1 (Cuyahoga Valley)
  * Origin: A poorly-installed InterNetNews site (2:5070/156)
 
 

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