【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


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

posted @ 2015-03-05 10:49  nomasp  阅读(117)  评论(0编辑  收藏  举报