From 5ae60479fc241239e9c760f41feef0bfe9d223f2 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 3 Oct 2014 16:50:26 -0700 Subject: [PATCH] add `contains-value?` --- csp/domain.rkt | 3 +++ 1 file changed, 3 insertions(+) diff --git a/csp/domain.rkt b/csp/domain.rkt index de71200d..3242939e 100644 --- a/csp/domain.rkt +++ b/csp/domain.rkt @@ -54,6 +54,9 @@ (define/public (values-empty?) (null? _list)) + (define/public (contains-value? value) + (member value _list)) + (define/public (domain-pop!) (py-pop! _list))