Re^5: Finding the max()/min()


Problems? Is your data what you think it is?
	PerlMonks

Re^5: Finding the max()/min()

by elusion (Curate)

on Dec 19, 2004 at 02:21 UTC ( #415928=note: print w/replies, xml )

Need Help??

in reply to Re^4: Finding the max()/min()
in thread Finding the max()/min()

Good catch; I forgot the edge case. Here's the fix:

sub max {
    my $max = shift;
    return $max if not @_;
    my $next = shift;
    unshift @_, $max > $next ? $max : $next;
    goto &max;
}
[download]

elusion : http://matt.diephouse.com

Comment on Re^5: Finding the max()/min() Download Code

In Section Meditations

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://415928]
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others drinking their drinks and smoking their pipes about the Monastery: (8)

As of 2023-02-06 11:47 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

I prefer not to run the latest version of Perl because:

Results (34 votes). Check out past polls.

Notices^?