- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #1000 [562]
От : Sergey E.Sumin 2:5025/17 29 октября 03, 15:27
Кому : All 01 ноября 03, 05:31
Тема : Re: Максимум
-------------------------------------------------------------------------------
From: "Sergey E.Sumin"
В perl 5.8
perldoc List::Util
"Mikhail Polykovsky" wrote in message
news:91197338000.20031029152805@company.utk.ru...
>
> Здравствуйте.
>
> В эхотаге есть встроенная функция получения максимального значения из
> массива? Если нет, как проще написать? А то на ум приходит только
> стандартное
>
> $arr = shift;
> my $max = $arr->[0];
> foreach (@$arr){
> $max = $_ if $max < $_;
> }
>
> --
> Михаил Полыковский
> http://copi.ru/27690/
>
>
>
> Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- Microsoft Outlook Express 6.00.2800.1106
* Origin: RELEX Inc. (2:5025/17@fidonet)