結果

問題 No.70 睡眠の重要性！
コンテスト
ユーザー ichibanshibori
提出日時 2017-01-13 11:13:26
言語 OCaml
(5.2.1)
結果
CE  
(最新)
AC  
(最初)
実行時間 -
コード長 851 bytes
コンパイル時間 61 ms
コンパイル使用メモリ 17,152 KB
最終ジャッジ日時 2024-11-14 19:55:38
合計ジャッジ時間 435 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge5
このコードへのチャレンジ
（要ログイン）
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。（リジャッジ後のコンパイルエラーは公開されます）
ただし、clay言語の場合は開発者のデバッグのため、公開されます。

コンパイルメッセージ
File "Main.ml", line 2, characters 2-13:
2 |   Stream.from (fun _ -> try Some (f (Stream.next stream))
      ^^^^^^^^^^^
Error: Unbound module Stream

ソースコード

diff #
raw source code 

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