moremagic https://blog.hatena.ne.jp/moremagic/ moremagic’s diary https://moremagic.hateblo.jp/ Scheme手習い member? は lat? が #f になる場合はすべてのS式に対して評価されない 例えばこんな感じ。 (member? 'aaa '(bbaab ccc (ddd bbb aaa) bbb)) ; #f member? を memberX? として再定義してみた。 (define memberX? (lambda (a lat) (cond ((null? lat) false) ((eq? a (car lat)) true) ((not (atom? (car lat))) (memberX? a (car lat))) (else (memberX? a (cdr lat))))))… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmoremagic.hateblo.jp%2Fentry%2F20130614%2F1371221129" title="（脱線）member?　を改造してみた - moremagic’s diary" 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 2013-06-14 23:45:29 rich https://moremagic.hateblo.jp/entry/20130614/1371221129 1.0 100%