joachim/racket-random
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

wip

Browse source
This commit is contained in:
joachimschmidt557 2020-01-29 16:30:13 +01:00
parent fbdc710918
commit 7bbf3a5070
5 changed files with 57 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
bst.rkt
View file

@ -108,4 +108,9 @@
[(empty? node) empty]
[(empty? (node-left node)) (node-right node)]
[(empty? (node-right node)) (node-left node)]
[else (make-node (node-value (replacement node)) (sans-max-subtree (node-left node)) (node-right node))]))
[else (make-node (node-value (replacement node)) (sans-max-subtree (node-left node)) (node-right node))]))
(check-equal? (delete empty) empty)
(check-equal? (delete (make-node 5 empty empty)) empty)
(check-equal? (make-node 5 empty empty) (make-node 5 empty empty))
(check-equal? (delete (make-node 6 (make-node 2 empty empty) empty)) (make-node 2 empty empty))