[perl]min与max的实现

 1 sub min {
 2     local $min = shift;
 3     for (@_) {
 4         $min = $_ if $_ < $min;
 5     }
 6
 7     return $min;
 8 }
 9
10 sub max {
11     local $max = shift;
12     for (@_) {
13         $max = $_ if $_ > $min;
14     }
15
16     return $max;
17 }