kw

4 years ago · 2c6cb2f3ad
parent 5c0e3efc07
commit 2c6cb2f3ad
1 changed files with 1 additions and 1 deletions
--- a/2020/16.rkt
+++ b/2020/16.rkt
@ -70,7 +70,7 @@
 (define prob (make-csp))
 (define colidxs (range (length cols)))
 (add-vars! prob colidxs (range (length predicates)))
-(add-all-diff-constraint! prob #:proc eq?)
+(add-all-diff-constraint! prob #:same eq?)
 (for ([colidx (in-list colidxs)])
  (add-constraint! prob
                   (λ (predidx) (andmap (list-ref predicates predidx)