More recent additions, some exercises and huffman encoding chapter
This commit is contained in:
@ -108,5 +108,7 @@
|
||||
((null s1) s2)
|
||||
((null s2) s1)
|
||||
(t (union-set-tree (union-set-tree (btree-left s1) (btree-right s2))
|
||||
(adjoin-set-tree s2 (btree-elt s1))))))
|
||||
s (adjoin-set-tree s2 (btree-elt s1))))))
|
||||
;; yeah, okay. this looks good enough, didn't test it at all, but whatevs.
|
||||
|
||||
|
||||
|
Reference in New Issue
Block a user