【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