Submission #3050197

---

Source Code Expand

let rec power e m n =
  if n <= 0 then e
  else power (if n land 1 = 0 then e else m * e) (m * m) (n lsr 1)
let power = power 1

let () = Scanf.scanf "%d\n" @@ fun n ->
  let dp = Array.make n 0 in
  for i = 0 to (n - 1) / 5 do
    print_string "? ";
    for j = 0 to n - 1 do
      Printf.printf "%d " @@
      if j < 5 * i || 5 * i + 4 < j then 0
      else power 5 (j - 5 * i)
    done;
    print_newline ();
    Scanf.scanf "%d\n" @@ fun ans ->
      dp.(5 * i) <- (ans - 6248) mod 5 + 8;
      dp.(5 * i + 1) <- ((ans - 6248) / 5) mod 5 + 8;
      dp.(5 * i + 2) <- ((ans - 6248) / 25) mod 5 + 8;
      dp.(5 * i + 3) <- ((ans - 6248) / 125) mod 5 + 8;
      dp.(5 * i + 4) <- (ans - 6248) / 625 + 8
  done;
  print_string "! ";
  for i = 0 to n - 1 do
    Printf.printf "%d " @@ if dp.(i) = 9 || dp.(i) = 11 then 1 else 0
  done;
  print_newline ()

Submission Info

Judge Result