Perl高水线算法 Perl实现高水线算法(解决多值比较问题方法)
人气:0想了解Perl实现高水线算法(解决多值比较问题方法)的相关内容吗,在本文为您仔细讲解Perl高水线算法的相关知识和一些Code实例,欢迎阅读和指正,我们先划重点: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,就是数组中的最大元素。
加载全部内容