2008-06-17T16:55:17+09:00 mikeda sion 2008-06-17T14:05:21+09:00

@cards のデータが . 演算子で文字列連結でき、「,」を含まないデータならそれも良いですが、量が増えるとソート時の split に負荷がかかり、s// で連結文字列の除外というのもトリッキーな気がします。 そのアルゴリズムのまま、もう少し工夫するとこんな感じでしょうか。 #! /usr/bin/perl use strict; ### @cardsは1から10までの数値の配列 my @cards = (1..10); ### 元の値と、並べ替え用のキー（乱数）を持ったハッシュに置き換えます $_ = {key => rand(), value => $_} for(@cards); ### 並べ替え用のキーでソートします @cards = sort {$a->{'key'} <=> $b->{'key'}} @cards; ### 元の値に戻します $_ = $_->{'value'} for(@cards); ## 結果の表示 print "$_\n" for (@cards); 参考までに、よくある汎用な配列のシャッフルはこんな感じじゃないでしょうか？ #! /usr/bin/perl use strict; sub shuffle(@) { my @list = @_; my @ret = (); push(@ret, splice(@list, int(rand(scalar(@list))), 1)) while(@list); return @ret; } my @cards = ( { name => 'AAA', value => '1' }, { name => 'BBB', value => '2' }, { name => 'CCC', value => '3' }, { name => 'DDD', value => '4' }, { name => 'EEE', value => '5' }, { name => 'FFF', value => '6' }, { name => 'GGG', value => '7' }, { name => 'HHH', value => '8' }, { name => 'III', value => '9' }, { name => 'JJJ', value => '0' }, ); foreach my $item (shuffle @cards) { printf "[%s] - [%d]\n", $item->{'name'}, $item->{'value'}; }

mikeda 2008-06-17T16:55:16+09:00

いきなりこんな完璧な返答が返ってくるとはww 素晴らしいです。みなさんどんどん移植しましょう。 とりあえずハッシュやリファレンスを使わず簡単な文字列処理で、と書きました。 当然、汎用性を考えればソートすべきは値ではなく参照です。 split使ったり正規表現使ったりのポリシーの不一致はわかりやすさ重視半分、ネタ半分ですww セパレータを含む文字列問題も、splitの添字工夫したり正規表現の量指定子使ったりはとりあえず省略して反応待ちでw しかしいきなり自分レベルでは完璧と思えるコードが返ってきたのでまともなお返しコードがすぐに思いつかない・・・ というわけで以下、perlに限ったネタコード、よいこのみなさんは絶対マネしないように ### 末尾じゃなくてアタマに乱数つければsplitもいらない手抜きコード my @cards = (1..10); $_ = rand() . ",$_" for(@cards); @cards = sort @cards; $_ =~ s/^.*?,// for(@cards); print "$_\n" for (@cards); ### 乱数はかぶったりしないだろう思想に基づいた乱数をキーにハッシュを作る手抜きコード my @cards = (1..10); my %hash = map {(rand, $_)} @cards; @cards = @hash{sort keys %hash}; print "$_\n" for (@cards); ### さらにハッシュ関数なんて乱数みたいなものだろう思想に基づいたひどい手抜きコード（毎回同じ並び><） my @cards = (1..10); @hash{@cards} = (); print "$_\n" for (keys %hash);