Perl實現高水線演算法

Perl實現高水線演算法

         這篇文章主要介紹了Perl實現高水線演算法（解決多值比較問題方法）,從本文程式碼範例中還可以學習到數組遍曆、函數寫法、函數調用等知識,需要的朋友可以參考下

 

 

        "高水線"演算法:大水過後，最後一波浪消退時，高水線會標示出所見過的最高水位。
下面看下"高水線"演算法在Perl中的運用。

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14

#! /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，就是數組中的最大元素。