Author: abaine Date: Sun Aug 19 11:03:31 2007 New Revision: 148

Added: trunk/funds/src/examples/puzzles.lisp Log: Added puzzles.

Added: trunk/funds/src/examples/puzzles.lisp ============================================================================== --- (empty file) +++ trunk/funds/src/examples/puzzles.lisp Sun Aug 19 11:03:31 2007 @@ -0,0 +1,22 @@ + +(in-package :funds-examples) + +(defconstant p1 '((7 0 0 1 0 8 0 0 0) + (0 9 0 0 0 0 0 3 2) + (0 0 0 0 0 5 0 0 0) + (0 0 0 0 0 0 1 0 0) + (9 6 0 0 2 0 0 0 0) + (0 0 0 0 0 0 8 0 0) + (0 0 0 0 0 0 0 0 0) + (0 0 5 0 0 1 0 0 0) + (3 2 0 0 0 0 0 0 6))) + +(defconstant p2 '((0 8 2 0 1 0 0 0 0) + (7 0 0 0 0 0 0 3 0) + (0 0 0 0 0 6 0 0 5) + (0 0 0 0 0 0 0 8 0) + (3 0 0 7 0 0 0 0 0) + (0 0 0 0 0 0 1 0 4) + (4 0 1 0 0 0 0 0 6) + (0 0 0 0 5 0 0 0 0) + (0 0 0 8 0 0 0 0 0)))