diff --git a/csp/test.rkt b/csp/test.rkt index 5d5a1c2b..114d585f 100644 --- a/csp/test.rkt +++ b/csp/test.rkt @@ -108,7 +108,7 @@ A collection of 33 coins, consisting of nickels, dimes, and quarters, has a valu |# (define xsum-problem (make-csp)) -(add-vars! xsum-problem '(l1 l2 l3 l4 r1 r2 r3 r4 x) (range 1 10)) +(add-vars! xsum-problem '(l1 l2 l3 l4 r1 r2 r3 r4 x) (λ () (shuffle (range 1 10))) (add-constraint! xsum-problem < '(l1 l2 l3 l4)) (add-constraint! xsum-problem < '(r1 r2 r3 r4)) (add-constraint! xsum-problem (λ (l1 l2 l3 l4 x) (= 27 (+ l1 l2 l3 l4 x))) '(l1 l2 l3 l4 x))