perl取陣列中最值

2022-07-19 02:21:08 字數 719 閱讀 7381

my @a=(11,22,33,44);

my $mincnt = &min(@a);

sub max       # 採用遍歷演算法。先將引數中的第乙個值賦給$currentmaxcnt。 # @_ 是預設的包含本函式所有引數 [如(11,22,33)]的陣列。

# shift @_ 有兩個結果: 1. 將陣列 @_ 中的第乙個值做為返回值(賦給了$currentmaxcnt). 2. 將@_陣列第乙個值彈出[此後@_的值變為(22,33)]. my $currentmaxcnt = shift @_; # 函式中使用shift時,@_可以省略。上面**也可以寫成這樣。 # my $currentmaxcnt = shift;

# 遍歷整個@_陣列。

foreach ( @_ )

}     # 函式返回值為標量      $currentmaxcnt.

return $currentmaxcnt;

} print $maxcnt

輸出最小值:

my @a=(11,22,33,44);

my $mincnt = &min(@a);

sub min

} return $currentmincnt;

} print $mincnt

或是:use list::util qw(first max maxstr min minstr reduce shuffle sum);

求陣列中最大的值

示例 求陣列 2,6,1,77,52,25,7 中的最大值 宣告乙個儲存最大元素的變數 max。預設最大值可以取陣列中的第乙個元素。遍歷這個陣列,把裡面每個陣列元素和 max 相比較。如果這個陣列元素大於max 就把這個陣列元素存到 max 裡面,否則繼續下一輪比較。最後輸出這個 max var a...

求陣列中最大值

所有c語言 都是在loadrunner中執行 action 定義乙個int陣列 int len 記錄陣列元素個數 int max 所求的最大值 int i 迴圈變數 loadrunnerg中,不能在for迴圈中定義變數 len sizeof a sizeof int 陣列元素個數 陣列所佔字元數 陣...

尋找陣列中最大值和最小值

最簡單的方法就是n中的每個數分別和max,min比較,看似2n次比較,其實大於max的就不必和min比較,小於min的也不必和max比較,因此比較的次數不足2n次,程式如下 bool maxmin std vectorarray,t max,t min max array 0 min array 0...