#!/usr/bin/perl #计算总数 sub total { my @fred = @_; foreach (@_) { $total += $_; } return $total; } #返回大于平均值的数 sub above_average { $average = &total(@_)/@_; #计算平均值 foreach (@_) { if( $_ > $average ) { print "$_\n"; } } } &above_average(1..10);
返回列表中大于平均数的数
最新推荐文章于 2022-03-31 21:06:48 发布