(* TP 02 - Exercice 1 - N Reines en OCaml *)

(* affiche un plateau nxn, et les reines positionnées *)
let affiche n lpos =
  (* n : la taille de l'échiquier  -  lpos : la liste des positions des reines *)
  let echiquier = Array.make_matrix n n false in
  let num_col = ref 0 in
  let marque i = 
    echiquier.(i).(!num_col) <- true;
    incr num_col
  in
  List.iter marque (List.rev lpos);
  print_endline "-PLATEAU-";
  for i = 0 to n-1 do
    for j = 0 to n-1 do
      print_string (if echiquier.(i).(j) then "X" else "O")
    done;
    print_newline ()
  done;
  print_endline "--------"
;;

affiche 8 [4;2;0];;


(* affiche les solutions au problème des n-reines, ainsi que le nombre de solutions *)
let pb_reines n =
  (* A FAIRE *)
  ()
;;