どうも二進木のリスト表示がわかりにくいので、Graphviz使うことに。 define (graph tree) (system (format "echo 'digraph G { ~a ~a }' | dot -Tpng | display" (entry tree) ; 一個だけだと表示が出来ないのでとりあえず最初のを挿入しとく (letrec ((mak…

うぅん。わからん。 問題 2.65 僕は一生懸命ツリーをつなぎ替えようとしてしまった。ツリーのつなぎ変えがイマイチうまくいかない・・・。回答を見ると、tree->listを使ってやる方法が書かれてた。イマイチ納得がいかない。ちょっと後回し。

次は順序づけられたリストを釣合った二進木へと変換する問題。 問題 2.64 とりあえず、let*に直す。 (define (partial-tree elements n) (if (= n 0) (cons '() elements) (let* ((left-size (quotient (- n 1) 2)) (left-result (partial-tree elements lef…