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.
typesetting/csp/test.rkt

9 lines
257 B
Racket

6 years ago
#lang at-exp racket
6 years ago
(require "csp.rkt" rackunit)
6 years ago
6 years ago
(define c (make-csp '((a (2 3)) (b (12 14 16)) (c (2 5)))
(list ($constraint '(a c) alldiff=)
($constraint '(b c) (λ (b c) (zero? (modulo b c)))))))
6 years ago
6 years ago
(solve c)