我是靠谱客的博主 唠叨外套,这篇文章主要介绍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实现高水线算法(解决多值比较问题方法)内容请搜索靠谱客的其他文章。

本图文内容来源于网友提供,作为学习参考使用,或来自网络收集整理,版权属于原作者所有。
点赞(238)

评论列表共有 0 条评论

立即
投稿
返回
顶部