Submission #2695591

---

Source Code Expand

open Batteries
let () =
  let n = Scanf.scanf "%d " (fun a -> a) in
  let a,b = Scanf.scanf "%d %d " (fun a b -> a,b) in
  let k = Scanf.scanf "%d " (fun a -> a) in
  let a_lst = Array.to_list @@ Array.init k (fun _ -> Scanf.scanf "%d " (fun a -> a)) in

  let len1 = 2 in
  let len2 = List.length a_lst in
  let lst = a::b::a_lst in
  let len3 = List.sort_uniq compare lst |> List.length in

  Printf.printf "%s\n" @@
  if len1+len2 = len3 then "YES" else "NO"

Submission Info

Compile Error

File "./Main.ml", line 3, characters 6-7:
Warning 26: unused variable n.

Judge Result