- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #1001 [644]
От : Konstantin Tokar 2:5020/400 29 октября 03, 15:26
Кому : Mikhail Polykovsky 01 ноября 03, 05:31
Тема : Re: Максимум
-------------------------------------------------------------------------------
From: Konstantin Tokar
Mikhail Polykovsky wrote:
> 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 = что-то там ;
>
map {$max=$_ if $max<$_;} @array;
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)