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

看板Perl作者 (愚者)時間19年前 (2006/07/21 08:59), 編輯推噓0(000)
留言0則, 0人參與, 最新討論串2/3 (看更多)
※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.120.15.17

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

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

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

07/14 08:08,
更正: use List::Util qw(shuffle); 才對
07/14 08:08
haha. 如果只是想亂排的話 那用sort就好了壓:) @a = (4,5,6,7,8,2,2334,345,1,-23,4); @b = sort { $a <=> $b } @a; @c = sort { rand() <=> rand() } @a; print "@b\n@c\n"; -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 163.26.34.214
文章代碼(AID): #14m2SClb (Perl)
文章代碼(AID): #14m2SClb (Perl)