bowmoq https://blog.hatena.ne.jp/bowmoq/ いらずんば https://bowmoq.hatenadiary.org/ 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))) (define (intersection-set set1 set2) (cond ((or (null? set1) (null? set2))… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fbowmoq.hatenadiary.org%2Fentry%2F20090416%2F1239838900" title=" ex 2.59, 2.60 順序つけられていないリストとしての集合 - いらずんば" 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 2009-04-16 08:41:40 rich https://bowmoq.hatenadiary.org/entry/20090416/1239838900 1.0 100%