- 472 名前：468 mailto:sage [2009/04/02(木) 19:03:40 ]
- 当初の目的は下のコードでさくっとできるようになりました。
>>468のスキップ多発については原因が分かりません。
@numbers=();
for my $i (1..50000){
push(@numbers,$i);
}
for my $i (0..$#numbers){
$rand = int(rand(@numbers));
$tmp = $numbers[$i];
$numbers[$i] = $numbers[$rand];
$numbers[$rand]=$tmp;
}
for my $i (0..$#numbers){
print "$i:$numbers[$i]\n";
}
