]> git.rkrishnan.org Git - sicp.git/blob - src/sicp/ex2_61.rkt
Solution to 4.44. A bit too verbose. Can be improved by better
[sicp.git] / src / sicp / ex2_61.rkt
1 #lang racket
2
3 (define (adjoin-set x set)
4   (cond ((null? set) (cons x set))
5         ((= x (car set)) set)
6         ((< x (car set)) (cons x set))
7         ((> x (car set)) (cons (car set) (adjoin-set x (cdr set))))))