src/sicp/ex2_65.rkt

   1 #lang racket
   2
   3 (require "ch2_3_3_sets_as_trees.rkt")
   4 (require "ex2_63.rkt")
   5 (require "ex2_64.rkt")
   6 (require "ex2_62.rkt")
   7
   8 (define (union-set-tree s1 s2)
   9   (let ((ls1 (tree->list-1 s1))
  10         (ls2 (tree->list-2 s2)))
  11     (list->tree (union-set ls1 ls2))))