写一个子程序,用来判断一个数字数组的最大值

回复 收藏
给出一个数字数组,元素个数未知,通过子程序 sub max {} 来返回最大值。
  1. #! /usr/bin/perl
  2. sub max {
  3.     my ($m)=shift @_;
  4.     for (@_) {
  5.         if ($m < $_) {
  6.             $m=$_;
  7.         }
  8.     }
  9.     $m;
  10. }
  11. @a=qw /1 99 2 45 10/;
  12. $max=&max(@a);
  13. print "The max of (@a) is $max.\n";
结果为
The max of (1 99 2 45 10) is 99.
2012-11-13 10:20 举报
已邀请:

回复帖子,请先登录注册

退出全屏模式 全屏模式 回复
评分
可选评分理由: