結果
問題 | No.188 HAPPY DAY |
ユーザー | piconic_X |
提出日時 | 2015-11-08 04:28:55 |
言語 | OCaml (5.1.0) |
結果 |
AC
|
実行時間 | 2 ms / 1,000 ms |
コード長 | 577 bytes |
コンパイル時間 | 189 ms |
コンパイル使用メモリ | 19,820 KB |
実行使用メモリ | 6,816 KB |
最終ジャッジ日時 | 2024-04-17 08:30:28 |
合計ジャッジ時間 | 575 ms |
ジャッジサーバーID (参考情報) |
judge2 / judge1 |
(要ログイン)
ソースコード
let rec happyday ?(day=0) ?(count=0) month last = if day > last then count else let digit1 = day mod 10 in let sum = (( day - digit1 ) / 10) + digit1 in if sum = month then happyday ~day:(day + 1) ~count:(count + 1) month last else happyday ~day:(day + 1) ~count:count month last let () = print_int ( happyday 1 31 + happyday 2 28 + happyday 3 31 + happyday 4 30 + happyday 5 31 + happyday 6 30 + happyday 7 31 + happyday 8 31 + happyday 9 30 + happyday 10 31 + happyday 11 30 + happyday 12 31 ); print_newline ()