Re^4: I think Perl ruined me as a programmer

or, to avoid warnings about the occasional undefs in your arg list:

sub min {
    my $min;
    for (@_) {
        next unless defined;
        $min = $_ if $_ < $min
    }
    $min
}
[download]

Comment on Re^4: I think Perl ruined me as a programmer Download Code

Replies are listed 'Best First'.
Re^5: I think Perl ruined me as a programmer by Anonymous Monk on Apr 12, 2010 at 05:45 UTC
oops, sorry.. `sub min { my $r; for (@_) { next unless defined; $r = $_ if !defined($r) \|\| $_ < $r } $r }` [download]	[reply] [d/l]