練習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

---

版權聲明：本文為 NoMasp柯于旺 原創文章，如需轉載請聯系本人。

轉載于:https://www.cnblogs.com/NoMasp/p/4786125.html

總結

以上是生活随笔為你收集整理的【SICP练习】94 练习2.67的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。