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))))))