diff options
| author | Mike Vink <mike1994vink@gmail.com> | 2023-06-23 17:40:04 +0200 |
|---|---|---|
| committer | Mike Vink <mike1994vink@gmail.com> | 2023-06-23 17:40:04 +0200 |
| commit | b0436b07fa1efbbbc89769fed15039c97b368ea7 (patch) | |
| tree | d403b158b1ead768187ff6b4afaa5596f272a817 /shared/sets.rkt | |
| parent | 65304e67abae760bc0839189af254bf8578f5411 (diff) | |
section 3.3 done
Diffstat (limited to 'shared/sets.rkt')
| -rw-r--r-- | shared/sets.rkt | 3 |
1 files changed, 1 insertions, 2 deletions
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)))) - |