7 lines
188 B
Scheme
7 lines
188 B
Scheme
#lang sicp
|
|
|
|
(define (adjoin-set x set)
|
|
(cond ((null? set) (list x))
|
|
((< x (car set)) (cons x set))
|
|
((= x (car set)) set)
|
|
((> x (car set)) (cons (car set) (adjoin-set x (cdr set))))))
|