- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #989 [562]
От : Mikhail Polykovsky 2:5020/400 29 октября 03, 13:29
Кому : All 01 ноября 03, 05:31
Тема : Максимум
-------------------------------------------------------------------------------
From: Mikhail Polykovsky
Здравствуйте.
В эхотаге есть встроенная функция получения максимального значения из
массива? Если нет, как проще написать? А то на ум приходит только
стандартное
$arr = shift;
my $max = $arr->[0];
foreach (@$arr){
$max = $_ if $max < $_;
}
--
Михаил Полыковский
http://copi.ru/27690/
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5
* Origin: UTC (2:5020/400)