作者qrtt1 (愚者)
看板perl
標題Re: [問題]這個有辦法簡化媽？
時間Fri Jul 21 09:02:58 2006
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.120.15.17
1F：推 LiloHuang:print join $/,(sort{rand>.5?-1:1}1..10); 07/14 01:33
2F：→ darenhu:perlfaq4: How do I shuffle an array randomly? 07/14 07:55
3F：→ darenhu:use Util::List qw(shffle); @hitno = shuffle 0..9; 07/14 08:05
4F：→ darenhu:更正: 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