結果

問題 No.185 和風
ユーザー ichibanshiboriichibanshibori
提出日時 2017-03-06 03:09:06
言語 OCaml
(5.1.0)
結果
CE  
(最新)
AC  
(最初)
実行時間 -
コード長 584 bytes
コンパイル時間 47 ms
コンパイル使用メモリ 17,152 KB
最終ジャッジ日時 2024-04-17 08:36:13
合計ジャッジ時間 414 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge4
このコードへのチャレンジ（β）
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。（リジャッジ後のコンパイルエラーは公開されます）
ただし、clay言語の場合は開発者のデバッグのため、公開されます。

コンパイルメッセージ
File "Main.ml", line 6, characters 17-28:
6 |       let x, y = Stream.next st in
                     ^^^^^^^^^^^
Error: Unbound module Stream

ソースコード

diff # 

let solve n st =
  let rec solve' i result =
    if i >= n then
      result
    else (
      let x, y = Stream.next st in
      if (result = -1 && y - x > 0) || (result <> -1 && result = y - x) then
        solve' (i + 1) (y - x)
      else
        -1
    )
  in
  solve' 0 (-1)

let () =
  let n = read_line () |> int_of_string in
  let st = Stream.from(fun i ->
    if i >= n then
      None
    else
      let x, y = read_line ()
                 |> fun l -> Scanf.sscanf l "%d %d" (fun x y -> (x, y))
      in
      Some(x, y))
  in
  solve n st |> string_of_int |> print_endline
0