From b0436b07fa1efbbbc89769fed15039c97b368ea7 Mon Sep 17 00:00:00 2001 From: Mike Vink Date: Fri, 23 Jun 2023 17:40:04 +0200 Subject: section 3.3 done --- shared/sets.rkt | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'shared/sets.rkt') diff --git a/shared/sets.rkt b/shared/sets.rkt index e20ba7f..7009d87 100644 --- a/shared/sets.rkt +++ b/shared/sets.rkt @@ -25,7 +25,7 @@ (element-of-set? (right-branch mset))) ((< x (entry mset)) (element-of-set? (left-branch mset))))) - + (define (adjoin-set x mset) (cond ((null? mset) (make-entry x '() '())) ((= x (entry mset)) mset) @@ -105,4 +105,3 @@ (list->tree (ordered-list-intersection-set (tree->list set1) (tree->list set2)))) - -- cgit v1.2.3