SICP 2.59 集合的合并union_set

现在有两个集合set1 和 set2, 需要将这两个集合合并成一个集合。
思路很简单：
顺序查找set1中的元素set2是否包含，是，则找下一个，否，加入到set2。
最后返回set2

scheme 实现：

(define (union_set set1 set2)    (if (null? set1)        set2        (union_set (cdr set1) (adjoin (car set1) set2))))

其中添加元素操作adjoin实现：

（define (adjoin x set)    (if (element_of_set? x set)        set        (cons x set)))

其中查询元素操作element_of _set? 实现

(define (element_of_set? x set)    (cond ((null? set) #f)          ((equal? x (car set)) #t)          (else            (element_of_set? x (cdr set)))))