moremagic https://blog.hatena.ne.jp/moremagic/ moremagic’s diary https://moremagic.hateblo.jp/ Scheme手習い P15 lat?を書いてみてくださいという問題。 とりあえず先のページを見ないでどれだけかけるか挑戦してみました (define atom? (lambda (x) (and (not (pair? x)) (not (null? x))))) (define (lat? n) (cond ((atom? n) true) ((null? n) true) (else (and (atom? (car n)) (lat? (cdr n)))))) (lat? (cons 1 (cons 3 4))) ; #t ん？なんかうまくいかない。(lat? (cdr n)) がうまく言ってないのかと思っ… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmoremagic.hateblo.jp%2Fentry%2F20130612%2F1371017629" title="lat? 実装にチャレンジ - 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-12 15:13:49 rich https://moremagic.hateblo.jp/entry/20130612/1371017629 1.0 100%