state count

6 years ago · 56d975667f
parent 3c5bda43d5
commit 56d975667f
1 changed files with 5 additions and 0 deletions
--- a/csp/csp.rkt
+++ b/csp/csp.rkt
@ -329,3 +329,8 @@
 (define/contract (alldiff= x y)
  (any/c any/c . -> . boolean?)
  (not (= x y)))
+
+(define/contract (state-count csp)
+  ($csp? . -> . exact-nonnegative-integer?)
+  (for/product ([var (in-list ($csp-vars csp))])
+    (length ($var-vals var))))