結果
問題 | No.188 HAPPY DAY |
ユーザー | r6eve |
提出日時 | 2017-08-09 13:14:26 |
言語 | OCaml (5.1.0) |
結果 |
AC
|
実行時間 | 1 ms / 1,000 ms |
コード長 | 364 bytes |
コンパイル時間 | 238 ms |
コンパイル使用メモリ | 20,852 KB |
実行使用メモリ | 5,248 KB |
最終ジャッジ日時 | 2024-04-17 08:38:01 |
合計ジャッジ時間 | 591 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge3 |
(要ログイン)
ソースコード
let days = [|0; 31; 28; 31; 30; 31; 30; 31; 31; 30; 31; 30; 31|] let solve n = let m = days.(n) in let rec doit i cnt = if i > m then cnt else doit (i + 1) (cnt + if i / 10 + i mod 10 = n then + 1 else 0) in doit 1 0 let () = let rec doit i acc = if i > 12 then acc else acc + solve i |> doit (i + 1) in doit 1 0 |> Printf.printf "%d\n"