RosettaCodeData/Task/N-queens-problem/Mathematica/n-queens-problem-2.math

6 lines
163 B
Plaintext

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