【SICP练习】94 练习2.67

练习2.67

我们先来把该导入的导入，然后就来测试了。

(load "d:\\lisp\\tree.scm")
(define sample-tree
  (make-code-tree (make-leaf 'A 4)
          (make-code-tree (make-leaf 'B 2)
                  (make-code-tree (make-leaf 'D 1)
                          (make-leaf 'C 1)))))
(define sample-message '(0 1 1 0 0 1 0 1 0 1 1 1 0))
(decode sample-message sample-tree)
;Value 11: (a d a b b c a)

大家按照书上的解码过程，可以人工解码进行验证的。

感谢访问，希望对您有所帮助。 欢迎关注或收藏、评论或点赞。

为使本文得到斧正和提问，转载请注明出处：
http://blog.csdn.net/nomasp