【2016-12-7 17:01:40】[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 }
- 上一篇 »Linux内核中的Min和Max函数
- 下一篇 »2016-08-04 PHP函数随笔