杰瑞学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之Hello World
工作需要开始学Perl,下载个Window版(5.16)的: 下载链接 http://www.activestate.com/activeperl/downloads 安装好了之后,写第一个perl程 ...
杰瑞学Perl之文件操作(1)
Perl对文件的操作,跟其它的语言类似,无非也就是打开,读与写的操作. 1. 打开文件 #! c:/perl/bin/perl -w use utf8; use strict; use warning ...
杰瑞学Perl之PPM
PPM(Programmer's Package Manager)是ActivePerl自带的一个图形化管理工具,有了这个工具,要升级,更新,移除Perl的Package都非常方便.只需要输入ppm ...
杰瑞学Perl之CPAN(1)
CPAN(Comprehensive Perl Archive Network:全面的Perl存档网络)是查找任何Perl有关的东西的中心仓库.它包含从整个Perl社区收集来的智慧:成百上千的 Per ...
赛事启动 |香港科大-杰瑞集团 2022【人工智能】百万奖金国际创业大赛
香港科大百万奖金创业大赛(简称港科百创)源起于2011年,每年度举办一次,至今已举办11届.大疆无人机.云洲无人船均为第一届参赛项目.十余年来,7000多个项目与大赛一路同行,赛事共计发放奖金近￥50 ...
赛事简介 |香港科大-杰瑞集团 2022【人工智能】百万奖金国际创业大赛
香港科大百万奖金创业大赛(简称港科百创)源起于2011年,每年度举办一次,至今已举办11届.大疆无人机.云洲无人船均为第一届参赛项目.十余年来,7000多个项目与大赛一路同行,赛事共计发放奖金近￥50 ...
杰瑞·卡普兰：不要期望AlphaGo有人类意识，但需要它像人一样完成任务
[转] http://36kr.com/p/5061327.html <人工智能时代>的作者卡普兰认为,中国拥有比美国更加强大的能力来发展人工智能. 编者按:日前,著名计算机科学家.连续创 ...
康宁杰瑞、君实生物、天境生物人事任命；赛诺菲诺维乐在中国上市新适应证 | 医药健闻...
| 行业焦点全球领先的生物制药公司赛诺菲宣布诺维乐(碳酸司维拉姆)正式在中国上市新适应证,用于治疗未进行透析的慢性肾脏病成人患者的高磷血症.此前,诺维乐中国适应证仅包括治疗正在接受透析治疗的慢性肾脏 ...
杰瑞·卡普兰：人工智能的本质是自动化而非智能化
▼ 大型年度AI人物评选--2017中国AI英雄风云榜,评分工作已结束,12月4日乌镇张榜! 奖项设置:技术创新人物TOP 10,商业创新人物TOP 10 表彰人物:华人科学家.学者.企业家.创业者 ...

杰瑞学Perl之多值比较问题

杰瑞学Perl之多值比较问题相关推荐

最新文章

热门文章