※ 引述《peter0726 (江 謝)》之銘言： : 各為版友大家好 : 小弟有個問題，如標題所述 : 現在想寫一個功能 : 大致上就是隨機從n個數字中取出m個不重複的數字 : 目前寫出來的可以正確執行 : 可是當數字大的時候就會執行頗久的 : 想請教各位有沒有更有效率的寫法0.0? : 目前的程式碼如下 : sub randpick { : my $max = shift; : my $need = shift; : my %pick; : my @picked = keys %pick; ^^^^^^^^^^^^^^^^^^^^^^^^ 看了半天 不知道這行在幹嘛 設定成空陣列? : while (@picked < $need) { : my $num = int(rand($max)); : $pick{$num} = 1; ^^^^^^^^^^^^^^^^ 效率不彰的根源就在這 你的"避免重複"的方法就是使用雜湊 但是當你數字多了 抽到一樣數字的機會就會變大 造成這個while迴圈跑不完 解決方法很簡單 先做出一個不重複的陣列 把這陣列打亂 然後切前面幾個就好了 : @picked = sort{$a <=> $b} (keys %pick); : } : return %pick; : } sub randpick { my $max = shift; my $need = shift; return @{[sort{rand()>0.5}(0..$max)]}[1..$need]; } 或者連宣告變數都免了 sub randpick { return @{[sort{rand()>0.5}(0..$_[0])]}[1..$_[1]]; } --

※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 140.113.112.71 ※ 文章網址: http://webptt.com/m.aspx?n=bbs/Perl/M.1415009492.A.4A1.html