src/sicp/ex2_62.rkt

   1 #lang racket
   2
   3 (define (union-set set1 set2)
   4   (cond ((null? set1) set2)
   5         ((null? set2) set1)
   6         ((= (car set1) (car set2)) (cons (car set1) (union-set (cdr set1) (cdr set2))))
   7         ((< (car set1) (car set2)) (cons (car set1) (union-set (cdr set1) set2)))
   8         ((> (car set1) (car set2)) (cons (car set2) (union-set set1 (cdr set2))))))
   9
  10 (provide union-set)