[問題]這個有辦法簡化媽? (亂數問題)

看板Perl作者 (蜥蜴)時間18年前 (2006/07/13 22:00), 編輯推噓1(103)
留言4則, 2人參與, 最新討論串1/3 (看更多)
$hitno[$_]=$_ foreach(0..9); foreach(0..9) { $ran=int(rand()*9+1); $temp=$hitno[$_]; $hitno[$_]=$hitno[$ran]; $hitno[$ran]=$temp; } 有辦法簡化媽?目的是要取10個不同的亂數 $ran=int(rand()*9+1),+1的目的是第一個數字不能為0 各位高手幫忙簡化一下吧 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.120.15.17

07/14 01:33, , 1F
print join $/,(sort{rand>.5?-1:1}1..10);
07/14 01:33, 1F

07/14 07:55, , 2F
perlfaq4: How do I shuffle an array randomly?
07/14 07:55, 2F

07/14 08:05, , 3F
use Util::List qw(shffle); @hitno = shuffle 0..9;
07/14 08:05, 3F

07/14 08:08, , 4F
更正: use List::Util qw(shuffle); 才對
07/14 08:08, 4F
文章代碼(AID): #14jb8CrS (Perl)
文章代碼(AID): #14jb8CrS (Perl)