乱数と順列と組み合わせ

質問

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

回答No.1

ymmasayan

Perlはよく知りませんので考え方のみを。
順列や組み合わせで乱数を使うと言うのは聞いたことが有りません。なぜなら、全てのケースがいつ終わるのかと言うことが明確に予測できないからです。

このような場合、普通は多重ループを使います。例えば英字２６文字の中から４文字を選び、４文字の中に同じ文字がないものを探すとします。

１番外のループではＩ＝１，２６でループを回します。
２番目（内側のループもＪ＝１，２６でループを回します。このときＩ＝Ｊなら何もせずにループエンドに行き、Ｊが一つ進みます。
次に３番目のループです。ここもＫ＝１，２６でループを回します。
この中ではＩ＝Ｋ又はＪ＝ＫならＫが一つ進むようにします。
この応用で４番目まで作ります。この中でＩ＝Ｌ，Ｊ＝Ｌ，Ｋ＝ＬでなければＩ，Ｊ，Ｋ，Ｌが全て違うわけです。後はＩ，Ｊ，Ｋ，Ｌを文字に対応させます。

別の方法として一重ループでやる方法もあります。Ｍ＝１から２６＾４までループさせます。そしてＭを４桁の２６進数に分解します。これをＩ，Ｊ，Ｋ，Ｌとすると後はおんなじですね。

頑張ってください。わかりにくければ補足してください。