写一个子程序,名为&above_average,将一列数字作为其参数,返回所有大于平均值的数字(提示:
另外写一个子程序来计算平均值,总和除以数字的个数)。利用下面的程序进行测试:
my @fred = &above_average(1..10);
print "/@fred is @fred/n";
print "(Should be 6 7 8 9 10)/n";
my @barney = &above_average(100, 1..10);
print "/@barney is @barney/n";
print "(Should be just 100)/n";
函数如下:
该函数在win32下运行
linux的修改一下开头即可
#!c:perl
use warnings;
use strict;
my @fred = &above_average(1..10);
print "/@fred is @fred/n";
print "(Should be 6 7 8 9 10)/n";
my @barney = &above_average(100, 1..10);
print "/@barney is @barney/n";
print "(Should be just 100)/n";
my @bady = &above_average(1..100);
print "/@bady is @bady/n";
#print "(Should be just 100)/n";
sub above_average {
my ($sum, $ave) = (0, 0);#初始化
my $number = @_;#得到数组长度
my @ret = ();#初始化返回值
foreach (@_) {
$sum += $_;
}
$ave = $sum/$number;
foreach (@_) {
if ($_ > $ave) {
push (@ret, $_);
}
}
@ret;
}