ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Mikhail Polykovsky                   2:5020/400     29 Oct 2003  17:14:13
 To : Konstantin Tokar
 Subject : Re[2]: Максимум
 -------------------------------------------------------------------------------- 
 

 >> IF>  MP> Если нет, как проще написать? А то на ум приходит только
 >> IF>  MP> стандартное
 >> 
 >> IF>  MP> $arr = shift;
 >> IF>  MP> my $max = $arr->[0];
 >> IF>  MP> foreach (@$arr){
 >> IF>  MP>         $max = $_ if $max < $_;
 >> IF>  MP> }
 >> 
 >> IF> Hу и почему бы и нет?
 >> 
 >> А в одну строчку можно? Типа
 >> my $max = что-то там ;
 >> 
 
 KT> map {$max=$_ if $max<$_;} @array;
 
 И еще один оператор на объявление переменной. Так и foreach
 подходит...
 
 И, кстати, неверно работает на массиве отрицательных чисел.
 
 -- 
 Михаил Полыковский
 http://copi.ru/27690/
 Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
 --- ifmail v.2.15dev5
  * Origin: UTC (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Максимум   Mikhail Polykovsky   29 Oct 2003 14:29:28   Re: Максимум   Mikhail Polykovsky   29 Oct 2003 14:34:09   Re: Максимум   Anatoly Moskovsky   29 Oct 2003 15:12:05   Максимум   Ivan Frolcov   29 Oct 2003 15:28:47   Re: Максимум   Mikhail Polykovsky   29 Oct 2003 16:14:38   Re: Максимум   Konstantin Tokar   29 Oct 2003 16:26:54   Re[2]: Максимум   Mikhail Polykovsky   29 Oct 2003 17:14:13   Re: Максимум   Artem Chuprina   29 Oct 2003 18:20:42   Re[2]: Максимум   Mikhail Polykovsky   30 Oct 2003 08:47:33