Submission #346344

---

Source Code Expand

let n = Scanf.scanf "%d\n" (fun x -> x);;

let query v w =
    Printf.printf "? %d %d\n" v w;
    Pervasives.flush stdout;
    Scanf.scanf "%d\n" (fun x -> x);;

let rec hoge i v n =
    if i > n then
        (-114514, -1919810893)
    else if i == v then
        hoge (i+1) v n
    else
        begin
            let d = query i v in
            let (a, b) = hoge (i+1) v n in
            if d > b then (i, d) else (a, b)
        end;;

let (v, kmr) = hoge 1 n n in
let (mur, ans) = hoge 1 v n in
Printf.printf "! %d\n" ans;;

Submission Info

Judge Result