13日の金曜日(3桁) Haskell(Beta)編（paizaランク C 相当）

問題にチャレンジして、ユーザー同士で解答を教え合ったり、コードを公開してみよう！

問題

下記の問題をプログラミングしてみよう！

西暦年と月を無作為に選んだときに、その年月の13日が金曜日になる確率を求めてください。

ただし、各月の日数は以下のように決まることに注意してください。
・4, 6, 9, 11月は30日
・2月は閏年ならば29日、そうでなければ28日
・それ以外の月は31日

ただし、閏年は次のような年のことをいいます。
・西暦が4で割り切れる年は閏年
・ただし、100で割り切れる年は平年
・ただし、400で割り切れる年は閏年

ただし、1800年1月1日は水曜日です。(現実のカレンダーです)

入力される値: なし

入力値最終行の末尾に改行が１つ入ります。
文字列は標準入力から渡されます。標準入力からの値取得方法はこちらをご確認ください

期待する出力: 13日が金曜日になる確率を小数点以下3桁まで表示してください。
端数は切り捨ててください。

※この問題では「提出前の動作確認」を利用できないので、ご注意ください。

条件: なし

問題一覧へ戻る