RosettaCodeData/Task/N-queens-problem/Mathematica/n-queens-problem-2.math
2023-07-01 13:44:08 -04:00

5 lines
163 B
Text

matrixView[n_] :=
Grid[Normal@
SparseArray[MapIndexed[{#, First@#2} -> "Q" &, #], {n, n}, "."],
Frame -> All] & /@ nQueen[n]
matrixView[6] // OutputForm