Domino

Author

Eric W. Weisstein
August 31, 2008

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

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

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

Initialization

<<LinearAlgebra`MatrixManipulation`

Counts

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

Enumeration

Free

PolyominoPlot[PolyominoArray[Polyominoes[2]]]

One-Sided

PolyominoPlot[PolyominoArray[Polyominoes[2,Type->OneSided]]]

Fixed

PolyominoPlot[PolyominoArray[Polyominoes[2,Type->Fixed]]]

Array

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