You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
26 lines
991 B
Racket
26 lines
991 B
Racket
#lang at-exp racket
|
|
(require "csp.rkt" rackunit)
|
|
|
|
#|
|
|
(define creduce (assign-val ($csp (list ($var 'a '(1 2 3)) ($var 'b '(2 3)) ($var 'c '(1 2 3 4 5))) (list ($constraint '(a b c) (procedure-rename (λ (a b c) (= (+ a b c) 4)) 'summer)))) 'a 1))
|
|
(check-equal?
|
|
(make-arcs-consistent (reduce-constraint-arity creduce))
|
|
($csp (list ($var 'a '(1)) ($var 'b '(2)) ($var 'c '(1))) '()))
|
|
|
|
(define f (λ (a b c d) (+ a b c d)))
|
|
(check-equal? 10 ((reduce-arity f '(1 b c d)) 2 3 4))
|
|
(check-equal? 10 ((reduce-arity f '(1 2 c d)) 3 4))
|
|
(check-equal? 10 ((reduce-arity f '(1 2 3 d)) 4))
|
|
(check-equal? 10 ((reduce-arity f '(1 b 3 d)) 2 4))
|
|
(check-equal? 10 ((reduce-arity f '(a b 3 d)) 1 2 4))
|
|
|#
|
|
|
|
(define c1 ($csp (list ($var 'a '(1 2)) ($var 'b '(1 2 3)) ($var 'c '(1 3 4 5))) (list ($constraint '(a b c) alldiff))))
|
|
(assign-val c1 'b 3)
|
|
|
|
(define c2 ($csp (list ($var 'a '(1 2)) ($var 'b '(1 2 3)) ($var 'c '(1 3 4 5))) null))
|
|
(add-pairwise-constraint! c2 alldiff '(a b c))
|
|
(assign-val c2 'b 3)
|
|
|
|
|