Perl实现高水线算法(解决多值比较问题方法)

页面导航:首页 > 脚本专栏 > perl > Perl实现高水线算法(解决多值比较问题方法)

Perl实现高水线算法(解决多值比较问题方法)

来源:互联网 作者:脚本宝典 时间:2015-07-21 18:46 【

高水线算法:大水过后,最后一波浪消退时,高水线会标示出所见过的最高水位。 下面看下高水线算法在Perl中的运用。 ? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 #! /usr/bin/perl; use utf8; sub max { my ( $max_

"高水线"算法:大水过后,最后一波浪消退时,高水线会标示出所见过的最高水位。
下面看下"高水线"算法在Perl中的运用。

?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
#! /usr/bin/perl;
use utf8;
  
sub max {
  my($max_so_far) = shift @_; #数组中第一个值,暂时当成最大值。
  foreach(@_){         #遍历数组@_
  if($_>$max_so_far){     #看其它元素是否有比$max_so_far大的值。
  $max_so_far = $_;}     #如果有话,更新最大值变量
  }
  $max_so_far;
}
  
my $_MaxData = &max(2,3,8,5,10);
print $_MaxData;

第一行对数组@_进行shift操作,将一个元素2放到最大值$max_so_far变量中,@_中剩下的元素为(3,8,5,10),然后用foreach循环遍历数组,新数组中的第一个元素3比2大,又被移到$max_so_far变量中,依次类推,最后10,就是数组中的最大元素。


Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<