Perlについての質問箱 39箱目

Perlについての質問箱 ..

472:468
09/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";
}

次ページ