結果
問題 | No.70 睡眠の重要性! |
ユーザー |
![]() |
提出日時 | 2017-08-10 14:53:44 |
言語 | OCaml (5.2.1) |
結果 |
AC
|
実行時間 | 2 ms / 5,000 ms |
コード長 | 382 bytes |
コンパイル時間 | 348 ms |
コンパイル使用メモリ | 21,444 KB |
実行使用メモリ | 5,248 KB |
最終ジャッジ日時 | 2024-10-09 00:08:34 |
合計ジャッジ時間 | 801 ms |
ジャッジサーバーID (参考情報) |
judge2 / judge3 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 6 |
ソースコード
let () = let n = read_int () in let rec doit i acc = if i = n then acc else let a, b, c, d = Scanf.scanf "%d:%d %d:%d " (fun a b c d -> a, b, c, d) in let c = if a = c && b > d || a > c then c + 24 else c in doit (i + 1) (acc + (c - a - if b > d then 1 else 0)*60 + d - b + if d < b then 60 else 0) in doit 0 0 |> Printf.printf "%d\n"