练习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)

---

---

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

---

---

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

---

为使本文得到斧正和提问，转载请注明出处：

---

版权声明：本文为 NoMasp柯于旺 原创文章，如需转载请联系本人。