Skip to content

Instantly share code, notes, and snippets.

@mikamix

mikamix/2.62.scm

Created February 6, 2014 11:24
Show Gist options
  • Save mikamix/8842393 to your computer and use it in GitHub Desktop.
Save mikamix/8842393 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
2.62.scm
(define (union-set set1 set2)
(cond ((null? set1) set2)
((null? set2) set1)
(else (let ((x1 (car set1)) (x2 (car set2)))
(cond ((< x1 x2) (cons x1 (union-set (cdr set1) set2)))
((> x1 x2) (cons x2 (union-set set1 (cdr set2))))
(else (cons x1 (union-set (cdr set1) (cdr set2)))))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment