(define (union-set set1 set2)
(cond ((null? set1) set2)
((element-of-set? (car set1) set2) set2)
(else
(cons (car set1) (union-set (cdr set1) set2)))))

(cond ((null? set1) set2)
((element-of-set? (car set1) set2) set2)
(else
(cons (car set1) (union-set (cdr set1) set2)))))

댓글 없음:
댓글 쓰기