tanakaBox https://blog.hatena.ne.jp/tanakaBox/ ボクノス https://boxnos.hatenablog.com/ Scheme 今度は木の生成 問題 2.69 何も考えずにやるとこうかな。 (define (successive-merge leaf-set) (define (iter set tree) (if (null? set) tree (iter (cdr set) (make-code-tree (car set) tree)))) (iter (cdr leaf-set) (car leaf-set))) あっさりすぎ?ツリーというよりリストなんだけど。最後だけ二股に分かれてるリスト。一個以上無いとエラーです。SICPのサンプルを作ってみます。 (define my-tree (generate-hu… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fboxnos.hatenablog.com%2Fentry%2F20071221%2F1198183713" title=" SICPを読む(80) 問題2.69 ハフマン符号化木(3) - ボクノス" 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 2007-12-21 05:48:33 rich https://boxnos.hatenablog.com/entry/20071221/1198183713 1.0 100%