ワイズリマインダー

配列をランダムに並び替える

List::Utilが使える場合

use List::Util;
@ARRAY=List::Util::shuffle @ARRAY;

List::Utilが使えない場合

@ARRAY=@{&Shuffle(@ARRAY)};

sub Shuffle{
    BEGIN{srand}
    my @OUT;
    push @OUT,splice @_,rand @_,1 while @_;
    return @OUT;
}

コメントは受け付けていません。