Submission #1302361

---

Source Code Expand

let () =
  let n = read_int () in
  let tbl = Hashtbl.create n in
  let rec read x =
    if x = 0 then ()
    else
      let k = read_line () in
      let v = try
          Hashtbl.find tbl k
        with
          Not_found -> 0 in
      Hashtbl.replace tbl k (v+1);
      read (x-1) in
  read n;
  Hashtbl.fold (fun k v (s, c) -> if v > c then (k, v) else (s, c)) tbl ("", 0) |> fst |> print_endline

Submission Info

Judge Result