awacio https://blog.hatena.ne.jp/awacio/ awacio.log https://awacio.hatenadiary.org/ Scheme SICP 【問題】 引数として（リストとして表現されている）木をとり、その要素が、木の全ての葉を、左から右の順に並べたものであるリストを返す手続き fringe を書け。例えば、 (define x (list (list 1 2) (list 3 4))) (fringe x) (1 2 3 4) (fringe x x) (1 2 3 4 1 2 3 4) 【解答】 これも再帰使う感じ。 (define (fringe . lis) (reverse (let loop ((src lis) (dst '())) (cond ((null? src) dst) ((list? (car src)) … 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fawacio.hatenadiary.org%2Fentry%2F20100508%2F1273288062" title="SICP 問題 2.28（葉をトップレベルの要素に全て展開する） - awacio.log" 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 2010-05-08 12:07:42 rich https://awacio.hatenadiary.org/entry/20100508/1273288062 1.0 100%