Pentomino

Author

Eric W. Weisstein
May 16, 2003

This notebook downloaded from http://mathworld.wolfram.com/notebooks/PointLattices/Pentomino.nb.

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

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

Initialization

<<LinearAlgebra`MatrixManipulation`
<<Graphics`Colors`
<<Polyomino`

Count

Length/@(polys=Polyominoes[5,Type->#]&/@{Free,OneSided,Fixed})

Enumeration

Free

PolyominoPlot[m=PolyominoArray[Polyominoes[5],10]]

PolyominoPlot[PolyominoArray[Pentominoes]]

One-Sided

PolyominoPlot[PolyominoArray[Polyominoes[5,Type->OneSided],10]]

Fixed

PolyominoPlot[PolyominoArray[Polyominoes[5,Type->Fixed],10]]

Array

Show[GraphicsArray[List/@
(PolyominoPlot[PolyominoArray[#1,#3],DisplayFunction->Identity,
PlotLabel->StyleForm[#2,FontFamily->"Times",FontSlant->"Italic"]]&@@@{{Pentominoes,"free",10},{Polyominoes[5,Type->OneSided],"one-sided",10},{Polyominoes[5,Type->Fixed],"fixed",20}})
]]