Find the Mean Value of an Array (Rated 0)Description:
use this simple function to find the Mean Value of an Array Code starts here
# if mean("s", @array) is used
# then the array will be summed
# by the function. Otherwise,
# the usage is
# mean($sumOfValues, $numberOfValues);
#
sub mean {
my($action) = shift;
if ($action eq "s") {
my($sum) = 0;
my($count) = 0;
foreach (@_) {
$sum += $_;
$count++;
}
}
else {
my($sum, $count) = @_;
}
$sum / $count;
}
Submitted by Devscripts on 24-02-2003 12:05 |
