Puz-Graph

Author

Eric W. Weisstein
June 3, 2004

This notebook downloaded from http://mathworld.wolfram.com/notebooks/GraphTheory/Puz-Graph.nb.

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

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

15 Puzzle

lab1=Flatten[Reverse/@Partition[Range[16,1,-1],4]]

lab2=lab1/.{1->2,2->1}

ShowGraphArray[{
SetVertexLabels[GridGraph[4,4],lab1],
SetVertexLabels[GridGraph[4,4],lab2]
}]