4 [sicp.ex2_62 :only (union-set)]
5 [sicp.ch2_3 :only (intersection-set)]))
7 (defn union-set-tree [set1 set2]
8 (let [ls1 (tree->list-1 set1)
9 ls2 (tree->list-1 set2)]
10 (list->tree (union-set ls1 ls2))))
13 (defn intersection-set-tree [set1 set2]
14 (let [ls1 (tree->list-1 set1)
15 ls2 (tree->list-1 set2)]
16 (list->tree (intersection-set ls1 ls2))))