Perl实现高水线算法（解决多值比较问题方法）_perl

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

#! /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，就是数组中的最大元素。

以上是小编为您精心准备的的内容，在的博客、问答、公众号、人物、课程等栏目也有的相关内容，欢迎继续使用右上角搜索按钮进行搜索perl
， 高水线算法
多值比较问题
perl 实现 矩阵转置、perl broken pipe解决、perl 四舍五入实现、perl实现多行匹配、des加密算法c语言实现，以便于您获取更多的相关知识。