推 LiloHuang:print join $/,(sort{rand>.5?-1:1}1..10); 07/14 01:33
→ darenhu:perlfaq4: How do I shuffle an array randomly? 07/14 07:55
→ darenhu:use Util::List qw(shffle); @hitno = shuffle 0..9; 07/14 08:05
→ 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