Changeset 1965 for Swishetest/trunk/MinMax.pm
- Timestamp:
- 11/30/07 17:00:59 (9 months ago)
- Files:
-
- Swishetest/trunk/MinMax.pm (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
Swishetest/trunk/MinMax.pm
r1959 r1965 4 4 5 5 sub max { 6 my $max = shift;7 for(@_) { $max = $_ if $_ > $max; }8 return $max;6 my $max = shift; 7 for(@_) { $max = $_ if $_ > $max; } 8 return $max; 9 9 } 10 10 sub min { 11 my $min = shift;12 for(@_) { $min = $_ if $_ < $min; }13 return $min;11 my $min = shift; 12 for(@_) { $min = $_ if $_ < $min; } 13 return $min; 14 14 } 15 15 1;
