Perlで順列組合せの問題を解く(1) 青・赤・黄・緑の4色のボールがあります。これを順番に並べる方法はいくつありますか？ (2) この中から2色選んで順番に並べる方法はいくつありますか？ (3) この中から2色選んで順番を考えずに組合せを作る方法はいくつありますか？ こういう問題を学生の頃やらされました。nCrなどを見るとイライラするという方も多いでしょう。 最近こういう問題を解くはめになり、Perlでプログラムを書き計算する方法を調べてみました。もちろん数学の公式をネットで調べて当てはめてもいいのですが、既存のモジュールを使わない手はありません。 Math::Countingを使うMath::Countingがこういうときはぴったり。 #!/usr/bin/env perl use strict; use warnings; use Math::Counting; # (1) 4色のボールを順番に並べる（4P4） p
