working on exercise 4.44

Author: gbordyugov

chapter4/chapter4.03.scm

@@ -351,3 +351,20 @@
   (reverse (go a b '())))
 
 (zip-with list '(1 2 3) '(a b c d))
+
+(define (require p) (if (not p) (amb)))
+(define (eight-queens)
+  (define (ok-position? columns rows)
+    true)
+  (let ((q1 (amb 1 2 3 4 5 6 7 8))
+        (q2 (amb 1 2 3 4 5 6 7 8))
+        (q3 (amb 1 2 3 4 5 6 7 8))
+        (q4 (amb 1 2 3 4 5 6 7 8))
+        (q5 (amb 1 2 3 4 5 6 7 8))
+        (q6 (amb 1 2 3 4 5 6 7 8))
+        (q7 (amb 1 2 3 4 5 6 7 8))
+        (q8 (amb 1 2 3 4 5 6 7 8)))
+    (let ((columns (list q1 q2 q3 q4 q5 q6 q7 q8))
+          (rows    (list  1  2  3  4  5  6  7  8)))
+      (require (ok-position? columns rows))
+      (list q1 q2 q3 q4 q5 q6 q7 q8))))