たまに使う配列のシャッフル。
コピペで使えると便利なので。
sub shuffle { my @list; push( @list, splice(@_, int(rand(@_))) ) while(@_); return @list; }
使い方
my @data = (1,2,3,4,5);
@data = shuffle(@data);
たまに使う配列のシャッフル。
コピペで使えると便利なので。
sub shuffle { my @list; push( @list, splice(@_, int(rand(@_))) ) while(@_); return @list; }
使い方
my @data = (1,2,3,4,5);
@data = shuffle(@data);
「Pelrで配列をシャッフル」への2件の返信
参考先にも書いてありますが、List::Util::shuffleを使った方がいいと思います
ありゃ、そうなんですか?
テスト的なスクリプトの時にコピペで使った程度なんですけど、
ガシガシ使うにはモジュール使った方が効率がいいのかなぁ。
標準モジュールですしね。