- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #1003 [644]
От : Mikhail Polykovsky 2:5020/400 29 октября 03, 16:14
Кому : Konstantin Tokar 01 ноября 03, 05:31
Тема : Re[2]: Максимум
-------------------------------------------------------------------------------
From: Mikhail Polykovsky
>> 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)