bowmoq https://blog.hatena.ne.jp/bowmoq/ いらずんば https://bowmoq.hatenadiary.org/ sicp ;; 順序づけられたリストとしての集合 (define (element-of-set? x set) (cond ((null? set) #f) ((= x (car set)) #t) ((< x (car set)) #f) (else (element-of-set x (cdr set))))) (define (intersection-set set1 set2) (if (or (null? set1) (null? set1)) '() (let ((x1 (car set1)) (x2 (car set2))) (cond ((= x1 x2) (cons x1 (int… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fbowmoq.hatenadiary.org%2Fentry%2F20090416%2F1239839104" title=" ex 2.61, 2.62 順序つけられたリストとしての集合 - いらずんば" 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:45:04 rich https://bowmoq.hatenadiary.org/entry/20090416/1239839104 1.0 100%