main
Matthew Butterick 3 years ago
parent 7f69bbdd56
commit 2c94de76a3

@ -221,7 +221,7 @@
(add-vars! zebra ps '(dogs snails foxes horses zebra)) (add-vars! zebra ps '(dogs snails foxes horses zebra))
(for ([vars (list ns cs ds ss ps)]) (for ([vars (list ns cs ds ss ps)])
(add-all-diff-constraint! zebra vars #:proc eq?)) (add-all-diff-constraint! zebra vars #:same eq?))
(define (xnor lcond rcond) (define (xnor lcond rcond)
(or (and lcond rcond) (and (not lcond) (not rcond)))) (or (and lcond rcond) (and (not lcond) (not rcond))))

Loading…
Cancel
Save