Submission #3044496

---

Source Code Expand

let () =
  let s = read_line () in
  Printf.printf "%d\n" @@ 
  try
    Array.init (String.length s) (String.get s)
    |> Array.fold_left (fun (ni, co) c ->
        match ni, co, c with
        | _, 0, '2' -> (ni + 1, 0)
        | 0, _, '5' -> raise Not_found
        | _, _, '2' -> (ni + 1, co - 1)
        | _, _, '5' -> (ni - 1, co + 1)) (0, 0)
    |> (function
      | 0, co -> co
      | _, _ -> raise Not_found)
  with Not_found -> -1

Submission Info

Compile Error

File "./Main.ml", line 7, characters 8-186:
Warning 8: this pattern-matching is not exhaustive.
Here is an example of a value that is not matched:
(_, _, 'a')

Judge Result