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.
14 lines
682 B
Racket
14 lines
682 B
Racket
6 years ago
|
#lang at-exp racket
|
||
|
6 years ago
|
(require "csp.rkt" rackunit)
|
||
|
|
|
||
|
6 years ago
|
(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))) '()))
|
||
|
6 years ago
|
|
||
|
6 years ago
|
(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))
|