http://qs321.pair.com?node_id=723752


in reply to Re^2: I think Perl ruined me as a programmer
in thread I think Perl ruined me as a programmer

The function should be:
sub min { my $min = shift; foreach (@_) { $min = $_ if $_ < $min; } return $min; }

Replies are listed 'Best First'.
Re^4: I think Perl ruined me as a programmer
by Anonymous Monk on Apr 12, 2010 at 05:36 UTC
    or, to avoid warnings about the occasional undefs in your arg list:
    sub min { my $min; for (@_) { next unless defined; $min = $_ if $_ < $min } $min }
      oops, sorry..
      sub min { my $r; for (@_) { next unless defined; $r = $_ if !defined($r) || $_ < $r } $r }