On Wed, 2002-02-13 at 08:08, Jon Molin wrote:
> Frank wrote:
> >
> > On Wed, Feb 13, 2002 at 01:17:50PM +0100, Andrea wrote:
> > > In article <[EMAIL PROTECTED]> wrote
>"Jeff 'Japhy' Pinyan"
> > > <[EMAIL PROTECTED]>:
> > >
> > > >>I have a set of functions that give numeric results, and I need to compare
>them and choose the
> > > >>maximal value. Is there any simple way of finding max?
> > >
> > > Don't think about it,
> > > just use the CPAN module List::Util.
> > >
> > > Then you only have to write
> > > my $max = max @values;
> > ---end quoted text---
> >
> > or:
> > $max= (sort @values)[-1];
>
> That doesn't seems like a good sollution,
>
> @a = (-1, -5, -3);
> $max= (sort @a)[-1];
>
>
> gives -5 as max, it is max min but not max :)
>
Perhaps is should be
$max = (sort { $a <=> $b } @a)[-1];
since sort defaults to using cmp (string compare).
>
> >
> > Personally, I'd prefer Japhy's method for efficiency.
>
> same here, it's straightforward
>
> /jon
> >
> > --
> > Frank Booth - Consultant
> > Parasol Solutions Limited.
> > (www.parasolsolutions.com)
> >
> > --
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
--
Today is Prickle-Prickle the 44th day of Chaos in the YOLD 3168
Fnord.
Missle Address: 33:48:3.521N 84:23:34.786W
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
