Submission #169617

---

Source Code Expand

module VMap = Map.Make (String)
;;

let () =
  let n = read_int () in
  let m = ref VMap.empty in
  let rec iter i =
    if i < n then
      let name = read_line() in
      let c = try VMap.find name !m + 1 with Not_found -> 1 in
      (m := VMap.add name c !m;
      iter (i + 1))
    else
      ()
  in iter 0;
     let k = ref "" in
     let v = ref 0 in
     VMap.iter (fun ik iv -> (if iv >= !v then (k := ik; v := iv))) !m;
     Printf.printf "%s\n" !k;;

Submission Info

Judge Result