higepon https://blog.hatena.ne.jp/higepon/ higepon blog https://higepon.hatenablog.com/ Scheme SICP 順序づけられないリストとしての集合 (define (element-of-set? x set) (cond ((null? set) #f) ((equal? x (car set)) #t) (else (element-of-set? x (cdr set))))) (define (adjoin-set x set) (if (element-of-set? x set) set (cons x set)))ちなみに intersection = 「論理積」です。 (define (intersection-set set1 set2) (cond ((or (null? set1)… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fhigepon.hatenablog.com%2Fentry%2F20060429%2F1145889137" title=" 関数型言語の勉強にSICPを読もう - (21) 2章 - データによる抽象の構築 - 2.3.2 (89-90ページ) - higepon blog" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> http://images-jp.amazon.com/images/P/489471163X.09.MZZZZZZZ.jpg Hatena Blog https://hatena.blog 2006-04-29 23:32:17 rich https://higepon.hatenablog.com/entry/20060429/1145889137 1.0 100%