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