sicp-ex-2.65

 (define (union-set tree1 tree2) 
   (list->tree (union-set (tree->list tree1) 
                          (tree->list tree2)))) 
  
 (define (intersection-set tree1 tree2) 
   (list->tree (intersection-set (tree->list tree1) 
                                 (tree->list tree2)))) 

<< Previous exercise (2.64) | Index | Next exercise (2.66) >>