検証

　
せっかくなんでＳＲＣユーザーらしくＳＲＣを使って検証。
　
一年を365日、１クラス40人と仮定。
　
40に対して順番に空いている月日に入らせる。
つまりは 365/365 * 364/365 * 363/365 …
　
分子と分母を別にして計算。
　

Set 分子 1
Set 分母 1
For i = 1 To 40
　Set 分子 (分子 * (366 - i))
　Set 分母 (分母 * 365)
Next
Talk システム
一組もない確率　$(Left( (分子 / 分母), 10));一組はある確率　$(Left( (1 - (分子 / 分母)), 10))
End

　
これでいいはず。
誰かに間違いを指摘されないことを祈る。
　
そして我らがシステム様曰く
　

一組もない確率 0.10876819
一組はある確率 0.89123180

　
約89%の確率で誰かと誰かが同じ誕生日…
　
そんなもんなのかなぁ…