Front page | perl.beginners |
Postings from February 2002
Re: finding max value
Thread Previous
|
Thread Next
From:
merlyn
Date:
February 13, 2002 07:34
Subject:
Re: finding max value
Message ID:
m1n0yds8dc.fsf@halfdome.holdit.com
>>>>> "Frank" == Frank <frank@fysh.org> writes:
Frank> Yeah, my bad.. I shoulda tested it:
Frank> $max=(sort{$a<=>$b}@a)[-1];
Or sort descending, probably a bit faster than a literal slice:
my ($max) = sort { $b <=> $a } @input;
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
Thread Previous
|
Thread Next