root/Swishetest/trunk/MinMax.pm
| Revision 1965, 226 bytes (checked in by joshr, 8 months ago) |
|---|
| Line | |
|---|---|
| 1 | package MinMax; |
| 2 | use strict; |
| 3 | use warnings; |
| 4 | |
| 5 | sub max { |
| 6 | my $max = shift; |
| 7 | for(@_) { $max = $_ if $_ > $max; } |
| 8 | return $max; |
| 9 | } |
| 10 | sub min { |
| 11 | my $min = shift; |
| 12 | for(@_) { $min = $_ if $_ < $min; } |
| 13 | return $min; |
| 14 | } |
| 15 | 1; |
Note: See TracBrowser for help on using the browser.
