国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > Perl > 正文

Perl實現高水線算法(解決多值比較問題方法)

2020-06-04 20:33:33
字體:
來源:轉載
供稿:網友

"高水線"算法:大水過后,最后一波浪消退時,高水線會標示出所見過的最高水位。
下面看下"高水線"算法在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,就是數組中的最大元素。

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 铅山县| 通州市| 彰武县| 铜川市| 富顺县| 托克逊县| 克山县| 通化市| 天门市| 孟连| 句容市| 湘阴县| 北海市| 青铜峡市| 杭锦后旗| 定远县| 铜陵市| 夹江县| 宁乡县| 汝阳县| 隆回县| 霍林郭勒市| 柳河县| 桂东县| 衡南县| 高雄市| 南平市| 慈利县| 台南县| 正阳县| 郸城县| 潮州市| 桐梓县| 皋兰县| 册亨县| 南靖县| 紫金县| 涞源县| 绍兴县| 汽车| 浦城县|