※ 引述《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/cn.aspx?n=bbs/Perl/M.1415009492.A.4A1.html