Submission #2978623

---

Source Code Expand

module Q = Set.Make(struct type t = int * int let compare = compare end) 
let () =
  Scanf.scanf "%d %d" @@ fun n k ->
  let x = Array.init n (fun i -> Scanf.scanf " %d" (fun e -> i, e)) in
  Array.fold_left (fun q (i, e) ->
    let q' = Q.add (e, i+1) q in
    let q'' = if i >= k then Q.remove (Q.max_elt q') q' else q' in
    if i >= k-1 then Printf.printf "%d\n" (Q.max_elt q'' |> snd);
    q''
  ) Q.empty x |> ignore

Submission Info

Judge Result