結果

問題 No.70 睡眠の重要性!
ユーザー ichibanshiboriichibanshibori
提出日時 2017-01-13 11:13:26
言語 OCaml
(4.05.0)
結果
AC  
実行時間 1 ms / 5,000 ms
コード長 851 Byte
コンパイル時間 941 ms
使用メモリ 1,320 KB
最終ジャッジ日時 2020-06-06 03:50:12

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
testcase_00 AC 1 ms
1,300 KB
testcase_01 AC 1 ms
1,300 KB
testcase_02 AC 1 ms
1,308 KB
testcase_03 AC 1 ms
1,312 KB
testcase_04 AC 1 ms
1,320 KB
testcase_05 AC 1 ms
1,304 KB
権限があれば一括ダウンロードができます

ソースコード

diff #
let stream_map f stream =
  Stream.from (fun _ -> try Some (f (Stream.next stream))
                        with Stream.Failure -> None)

let stream_fold f stream init =
  let result = ref init in
  Stream.iter (fun x -> result := f !result x) stream;
  !result



let solve hm_st =
  let calc_min (h1, m1, h2, m2) =
    (h2 * 60 + m2 + 1440 - (h1 * 60 + m1)) mod 1440
  in
  let min_st = stream_map calc_min hm_st in
  stream_fold ( + ) min_st 0

let read_hm n =
  Stream.from (fun i ->
    if i >= n then None
    else
      let h1, m1, h2, m2 = ref 0, ref 0, ref 0, ref 0 in
      Scanf.scanf
        "%d:%d %d:%d\n"
        (fun d1 d2 d3 d4 -> h1 := d1; m1 := d2; h2 := d3; m2 := d4);
      Some(!h1, !m1, !h2, !m2)
  )

let () =
  let n = read_line () |> int_of_string in
  let hm_st = read_hm n in
  solve hm_st |> string_of_int |> print_endline
0