Rooks Problem

Author

Eric W. Weisstein
April 11, 2002

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Games/RooksProblem.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/RooksProblem.html.

©2005 Wolfram Research, Inc. except for portions noted otherwise

Initialization

<<Chess`;

Minumum number

pieces=StringJoin@Table[StringJoin[Table[" ",{8-i}]]<>"t"<>StringJoin[Table[" ",{i-1}]],{i,8}];

Display

Show[Graphics[ChessPieces[pieces,OutputFormat->"Display"],AspectRatio->Automatic,PlotRange->{{-4,4},{-4,4}}]]

Export as EPS

Show[Graphics[ChessPieces[pieces,OutputFormat->"EPS"],AspectRatio->Automatic,PlotRange->{{-4,4},{-4,4}}]]