問題 2.70まず符号化がバグってたので直しました。 encode 手続きは本書に載ってるものそのままです。 (define (encode message tree) (if (null? message) '() (append (encode-symbol (car message) tree) (encode (cdr message) tree)))) (define (encode…

問題 2.69 みんな大好きハフマン符号化木！ (define (make-leaf symbol weight) (list 'leaf symbol weight)) (define (leaf? object) (eq? (car object) 'leaf)) (define (symbol-leaf x) (cadr x)) (define (weight-leaf x) (caddr x)) (define (make-code…