【SICP练习】95 练习2.68

练习2.68

先要导入练习2.67中的sample-tree。这道题要求我们写出能够根据给定的树产生出给定符号的2进制位表的函数encode-symbol，这个函数还要能够在遇到未在树中出现的符号时报错。这个函数将要在给定的树中查找给定符号的叶子节点，并记录下寻觅进程中的左右方向，固然了，如书中所说，向左则用0，向右则用1。因此该函数可以以下列出。我们先来写那个检测毛病的谓词。

(define (symbol-in-tree? gven-symbol tree)

    (not (false? (find (lambda (s) (eq? s given-symbol))

                     (symbols tree)))))

(define (encode-symbol symbol tree)

   (cond ((leaf? tree) ‘())

         ((symbol-in-tree? symbol (left-branch tree))

          (cons 0 (encode-symbol symbol (left-branch tree))))

         ((symbol-in-tree? symbol (right-branch tree))

          (cons 1 (encode-symbol symbol (right-branch tree))))

         (else

          (error “Error: symbol not in this tree!”))))

如此1来即可以得出encode了。

(define (encode message tree)

    (if (null? message)

      ‘()

       (append (encode-symbol (car message) tree)

                (encode (cdr message) tree))))

通过测试我们发现和上1题中的结果完全符合，如前面所说要导入sample-tree。

(encode ‘( a d a b b c a) sample-tree)

;Value: (0 1 1 0 0 1 0 1 0 1 1 1 0)

波比源码 – 精品源码模版分享 | www.bobi11.com
1. 本站所有资源来源于用户上传和网络，如有侵权请邮件联系站长！
2. 分享目的仅供大家学习和交流，您必须在下载后24小时内删除！
3. 不得使用于非法商业用途，不得违反国家法律。否则后果自负！
4. 本站提供的源码、模板、插件等等其他资源，都不包含技术服务请大家谅解！
5. 如有链接无法下载、失效或广告，请联系管理员处理！
6. 本站资源售价只是赞助，收取费用仅维持本站的日常运营所需！
7. 本站源码并不保证全部能正常使用，仅供有技术基础的人学习研究，请谨慎下载
8. 如遇到加密压缩包，请使用WINRAR解压,如遇到无法解压的请联系管理员！

波比源码 » 【SICP练习】95 练习2.68

分享到：