[funds-cvs] r148 - trunk/funds/src/examples

[abaine at common-lisp.net]

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)))