CGI Find the Minimum Value of an Array
Find the Minimum Value of an Array
sub min {
my($min) = shift;
foreach (@_) {
$min = $_ if $min > $_;
}
$min;
}
CODE
LIBARY.COM
sub min {
my($min) = shift;
foreach (@_) {
$min = $_ if $min > $_;
}
$min;
}