2 (:use [sicp.ex2_54 :only (equal? eq?)]
5 (defn adjoin-set [x set]
7 (cond (empty? set) (cons x set)
10 (> x x1) (cons x1 (adjoin-set x (rest set))))))
14 (adjoin-set 0 '()) '(0)
15 (adjoin-set 1 '(2 3)) '(1 2 3)
16 (adjoin-set 3 '(1 2 3)) '(1 2 3)
17 (adjoin-set 3 '(1 2 4)) '(1 2 3 4)
18 (adjoin-set 4 '(1 2 4)) '(1 2 4)
19 (adjoin-set 4 '(1 2 3)) '(1 2 3 4)))