Perl实现高水线算法（解决多值比较问题方法）
发布日期：2021-12-31 15:29 | 文章来源：脚本之家
"高水线"算法:大水过后，最后一波浪消退时，高水线会标示出所见过的最高水位。
下面看下"高水线"算法在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，就是数组中的最大元素。
版权声明：本站文章来源标注为YINGSOO的内容版权均为本站所有，欢迎引用、转载，请保持原文完整并注明来源及原文链接。禁止复制或仿造本网站，禁止在非www.yingsoo.com所属的服务器上建立镜像，否则将依法追究法律责任。本站部分内容来源于网友推荐、互联网收集整理而来，仅供学习参考，不代表本站立场，如有内容涉嫌侵权，请联系alex-e#qq.com处理。
相关文章
下一篇：
关注官方微信