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

6 lines
163 B
Text
Raw Permalink Normal View History

2013-04-10 23:57:08 -07:00
matrixView[n_] :=
Grid[Normal@
SparseArray[MapIndexed[{#, First@#2} -> "Q" &, #], {n, n}, "."],
Frame -> All] & /@ nQueen[n]
matrixView[6] // OutputForm