作者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