src/sicp/ex2_65.clj

   1 (ns sicp.ex2_65
   2   (:use [sicp.ex2_63]
   3         [sicp.ex2_64]
   4         [sicp.ex2_62 :only (union-set)]
   5         [sicp.ch2_3  :only (intersection-set)]))
   6
   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))))
  11
  12
  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))))