ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Andrey Sapozhnikov                   2:5020/400     25 Mar 2002  15:18:06
 To : Dmitriy Dubinin
 Subject : Re: max 'n min
 -------------------------------------------------------------------------------- 
 

 Dmitriy Dubinin wrote:
 
 > Hужно получить min и max из ключей хеша. Что-то можно сделать?
 > Кроме
 > 
 > (sort {$a cmp $b}, keys %h)[0]
 > (sort {$b cmp $a}, keys %h)[0]
 
 Все тривиально и прозрачно.
 
 my ($min, $max);
 foreach (keys %h) {
      $max = $_ if !defined($max) || $_ gt $max;
      $min = $_ if !defined($min) || $_ lt $min;
 }
 
 Андрей
 
 P.S. В оригинале использован оператор cmp - если
 это Ваша ошибка, и интересовало цифровое, а не строковое
 сравнение - замените lt и gt на < и > соответственно.
 
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    max \'n min   Dmitriy Dubinin   25 Mar 2002 14:44:53   Re: max \'n min   Andrey Sapozhnikov   25 Mar 2002 15:18:06