ayato0211 https://blog.hatena.ne.jp/ayato0211/ (define -ayalog '()) https://ayato.hateblo.jp/ Scheme ということでちょっとコード書きますよっと。 Scheme手習いから。 (define (insertR new old lat) (cond ((null? lat) '()) (else (cond ((eq? old (car lat)) (cons old (cons new (cdr lat)))) (else (cons old (insertR new old (cdr lat)))))) (define (multiinsertR new old lat) (cond ((null? lat) '()) (else (cond ((eq? (car lat) old) (cons… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fayato.hateblo.jp%2Fentry%2F20111219%2F1324274391" title="コードの最適化？ - (define -ayalog &#39;())" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> http://ecx.images-amazon.com/images/I/41OG665OkZL.jpg Hatena Blog https://hatena.blog 2011-12-19 14:59:51 rich https://ayato.hateblo.jp/entry/20111219/1324274391 1.0 100%