>> Jason Henry Parker <[EMAIL PROTECTED]> writes:
> > my $min = my $max = shift @array;
> > map {$max = $_ if $_ > $max;
> > $min = $_ if $_ < $min} @array;> my ($min,$max) = (sort @array)[0,-1]; > > Of course this loses if @array is large On my system, "large" is about 4500 elements. Before that, the sort version is twice as fast, up to about 1000 elements in the array. -- Marcelo
