Sunday, June 7, 2009

Ex-2.59 

(define (union-set set1 set2)
  (if (null? set1) set2
      (adjoin-set
       (car set1)
       (union-set (cdr set1) set2))))
Posted by at

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)