sicp 習題2.32

這題真的不會 參考了一下別人的：

(define (subsets s)  (if (null? s)      (list null)      (let ((rest (subsets (cdr s))))        (append rest (map (lambda(x) (cons (car s) x)) rest)))))和換零錢問題的思路是一樣的，對於一個集合的所有子集的集合，可以分為兩部分，含有第一個元素和不含第一個元素的集合。而且含第一個元素的所有子集除去第一個元素，恰好正是所有不含第一個元素的子集。也可以換個思路，對於集合A，設它可以表示為 (a1)∪(a2,...,an) ，而 (a2,...,an) 的所有子集的集合是 B=(B1,...Bm),那麼可以證明A的所有子集的集合 C=B∪((A1)∪B1,(A1)∪B2,...,(A1)∪Bm);證明：設 X 是 A 的一個子集，那麼如果 a1∈X，那麼 X∈((A1)∪B1,(A1)∪B2,...,(A1)∪Bm)，否則X∈B，所以    X∈C