[Perl]クラスに同じ誕生日の子供が1組以上いる確率をImager でグラフにする | ブログが続かないわけ

[Perl]クラスに同じ誕生日の子供が1組以上いる確率をImager でグラフにする クラスの中に同じ誕生日の人がいる確率が、想像以上に高いというところはみんなどこかで聞いたことがあると思う。高校の確率の授業等では、計算をさせられたりすることもある。ただ、実際に手で計算してみると、電卓を使ってもかなり面倒な計算になる。これをPerl で書いてしまえばとても簡単に計算できる。 これを求めるために、簡単な計算の方針を示す。 1. クラスに同じ誕生日の子供が1組も存在しない確率を計算する 2. その逆を計算する(上記の確率を1から引く) 1. を求めるのはそんなに難しくない。 クラスの子供をひとりずつ選び出して、その子がそれまでに選んだ子供と同じ誕生日でない確率を掛け合わせていけばよい。 例えば、1人目の子は誕生日がいつでも良いので、365 / 365 となる。 2人目の子供は、1人目の子供と違