- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #1004 [644]
От : Artem Chuprina 2:5020/400 29 октября 03, 17:20
Кому : Mikhail Polykovsky 01 ноября 03, 05:31
Тема : Re: Максимум
-------------------------------------------------------------------------------
From: Artem Chuprina
Хмутро.
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у и почему бы и нет?
MP> А в одну строчку можно? Типа
MP> my $max = что-то там ;
my @arr = (1, 3, 2);
my $max = sub {my $max=shift; for(@_){$max=$_ if $max<$_}; return
$max}->(@arr);
print "$max\n";
Проверил, не поленился...
--
Artem Chuprina
RFC2822: , FIDO: 2:5020/122.256, ICQ: 13038757
--- ifmail v.2.15dev5
* Origin: Leninsky 45 home network (2:5020/400)