kiririmode https://blog.hatena.ne.jp/kiririmode/ 理系学生日記 https://kiririmode.hatenablog.jp/ SICP 集合のべき集合を求めます。 (define (map proc items) (if (null? items) () (cons (proc (car items)) (map proc (cdr items))))) (define (subsets s) (if (null? s) (list ()) (let ((rest (subsets (cdr s)))) (append rest (map (lambda (x) (cons (car s) x)) rest))))) あんまし意味ないけど、こうやってもできるよ。 (define (subsets s) (if (null? s… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fkiririmode.hatenablog.jp%2Fentry%2F20071129%2Fp3" title="問題2-32 - 理系学生日記" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2007-11-29 00:00:03 rich https://kiririmode.hatenablog.jp/entry/20071129/p3 1.0 100%