Heptomino

Author

Eric W. Weisstein
March 28, 2009

This notebook downloaded from http://mathworld.wolfram.com/notebooks/RecreationalMath/Heptomino.nb.

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

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

Initialization

<<MatrixManipulation`

Count

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

Enumeration

Free

PolyominoPlot[PolyominoArray[Polyominoes[7],15]]

One-Sided

PolyominoPlot[PolyominoArray[Polyominoes[7,Type->OneSided],20]]

Fixed

PolyominoPlot[PolyominoArray[Polyominoes[7,Type->Fixed],20]]

Heptomino with Hole

HoleyHeptomino:={{0,0},{1,0},{2,0},{0,1},{2,1},{0,2},{1,2}};

PolyominoPlot[PolyominoArray[{HoleyHeptomino}],ImageSize->200]