Re: efficient max() function from sort

Ramprasad A Padmanabhan wrote:
> I use sort to give the max of an array something like this 
> 
> -----
> my @z = qw(12 24 67 89 77 91 44 5 10);
> my $max = ((reverse sort{$a <=> $b} (@z))[0]);
> print "MAX = $max\n";
> -----------
> 
> but when I am interested only in a single max value, I need not sort the 
> entire array 
> Is there a more efficient alternative to this

my $max = $z[ 0 ];
for ( @z ) {
     $max = $_ if $max < $_;
     }
print "MAX = $max\n";

Or:

use List::Util 'max';
my $max = max @z;
print "MAX = $max\n";


> PS: Posts via nntp to nntp.perl.org  appear after a long time
> Is there a more preferred way of posting here 

Have you subscribed to the mailing list?

http://lists.cpan.org/showlist.cgi?name=beginners



John
-- 
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order.                            -- Larry Wall