乱数と順列と組み合わせ

質問

• 初心者がMacPerlを使って、Perlで組み合わせを生成する方法について質問です。
• rand関数を使っても同じ要素が出てくるため、組み合わせを作成する際に問題が発生しています。
• 順列の場合は同じ要素を消すことができますが、組み合わせの場合はどのように処理すればよいでしょうか？

回答No.3

leaz024

多重ループにすると、nＣrのrの数に応じてループが深くなり、かつ汎用的でないので、普通は再帰かそれと同等の動作をするループにします。

ちょっと作ってみましたが、ぱっと見ても恐らく分からないと思いますんで、いろいろ解析してみて補足してください。

# combi.pl

# ---- declare
my (@combi, @cnt, $f_loop);
my @array = (0, 1, 3, 4, 6, 8, 9);
my $r = 5;

# ---- main
@cnt = (0 .. $r-1);
$f_loop = 1;
while ($f_loop) {
　　@combi = @array[@cnt];　　　# １つの組み合わせが完成
　　print "@combi\n";　　　　　　 # 表示

　　$f_loop = 0;
　　for (my $i = $r-1; $i >=0; $i--) {
　　　　if ($cnt[$i]-$i < @array-$r) {
　　　　　　$cnt[$i]++;
　　　　　　while (++$i < $r) { $cnt[$i] = $cnt[$i-1] + 1; }
　　　　　　$f_loop = 1;
　　　　　　last;
　　　　}
　　}
}
__END__

■説明
　@array に、n個の値を設定してください。
　$r に、選ぶ個数を設定してください。
　結果の数が多い場合、
　　　perl combi.pl > result.txt
　のように、リダイレクトすればＯＫです。

補足

ありがとうございました。とりあえず、動かすことはできました。これから内容を理解すべく解析してみます。
ところで、前の方のアドバイスにそって自分で強引につくることもできたのですが、（これもまだどこが正しいのかわからないまま動いた）
どうしても、結果として出てくる配列の並び方は最初に決めた配列(@array)の並び方に依存していて、「ランダムに」並べることができません。

「n個の中からr個を選んで＜ランダムに＞並べる」

というのは可能でしょうか？
どこかに「配列をランダムに並びかえる」スクリプトを潜り込ませようとしたのですがうまくいきませんでした・・・