配列をシャッフルしたい(ランダムな順列) - Perl

配列(リスト)を順不同に並べ替えたい。トランプで言う「シャッフル」、アルゴリズム的な用語を使うと「ランダムな順列」に該当する。

次のようなプログラムを記述すれば良い。

サンプル
実行結果
参考

サンプル

;#
;#配列をシャッフルする
;#

#-- シャッフルする値を準備 --#
@array = (0,1,2,3,4,5);

#-- シャッフル --#
shuffleArray(\@array);
print join("\n", @array);


#-----------------------------------#
#配列をシャッフル
#-----------------------------------#
sub shuffleArray{
 my $array = shift;
 my $len = scalar(@$array);

 for(my $i=$len-1 ; $i>=0; --$i){
  my $j = int( rand($i+1) );
  next if($i==$j);

  @$array[$i, $j] = @$array[$j, $i];

 }
}