【SICP练习】88 练习2.60

练习2.60

这里的adjoin-set通过遍历后使用cons将表进行不断的组合，并在组合的过程中将x加到集合中去。

(define (adjoin-set x set)  (if (null? set)       (list x)       (let ((current-element (car set))            (remain-element (cdr set)))    (cond ((= x current-element)                set)              ((> x current-element)                (cons current-element                      (adjoin-set x remain-set)))               ((< x current-element)                 (cons x set))))))

---

---

感谢访问，希望对您有所帮助。 欢迎关注或收藏、评论或点赞。

---

为使本文得到斧正和提问，转载请注明出处：
http://blog.csdn.net/nomasp

---