>>>>> "Frank" == Frank <[EMAIL PROTECTED]> 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
<[EMAIL PROTECTED]> <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!
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
