(* 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 *) () ;;