利用perl计算列表中高于平均值的数字

发布时间：2020-12-16 00:23:53 所属栏目：大数据来源：网络整理

导读：?写一个名为above_average的子程序，当给定一个包含多个数字的列表时，返回其中大于这些平均值的数。 sub?sum{? ????????my?$sum;???????????????????????????????? #定义私有变量 ? ????????foreach(@_){? ????????????????$sum?+=?$_;? ????????}? $sum;??

?写一个名为&above_average的子程序，当给定一个包含多个数字的列表时，返回其中大于这些平均值的数。

 
 
sub?sum{?
  
  ????????my?$sum;????????????????????????????????#定义私有变量?
  
  ????????foreach(@_){?
  
  ????????????????$sum?+=?$_;?
  
  ????????}?
  
  $sum;???????????????????????????????????????????#返回累加和的返回值?
  
  }?
  
  ?
  
  ?
  
  sub?average{?
  
  ????????if(@_?==?0)?{return}????????????????????#如果列表为空，不进行计算（最后一条语句可以不写分号，也就是return后面的分号可以省略）?
  
  ????????my?$ave;?
  
  ????????my?$len?=?@_;?
  
  ????????$ave?=?&sum(@_)/$len;???????????????????#计算平均值并返回?
  
  ?
  
  }?
  
  ?
  
  ?
  
  sub?above_average{?
  
  ????????my?$average?=?&average(@_);?
  
  ????????my?@list;?
  
  ?
  
  ????????foreach?(@_){?
  
  ????????????????if($average<$_){?
  
  ????????????????push?@list?,??$_;???????????????#如果高于平均值，入list?
  
  ????????????????}?
  
  ????????}?
  
  @list;??????????????????????????????????????????#返回list?
  
  }?
  
  ?
  
  ?
  
  my?@fred?=?above_average(1..10);?
  
  print?"@fred?is?@fredn";?
  
  print?"(shoule?be?6?7?8?9?10)n";?
  
  ?
  
  my?@barney?=?above_average(100,1..10);?
  
  print?"@barney?is?@barneyn";?
  
  print?"(shoule?be?just?100)n";?

运行结果：

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!