最新公告
  • 欢迎您光临波比源码,本站秉承服务宗旨 履行“站长”责任,销售只是起点 服务永无止境!立即加入我们
  • 【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. 如遇到加密压缩包,请使用WINRAR解压,如遇到无法解压的请联系管理员!

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

    常见问题FAQ

    免费下载或者VIP会员专享资源能否直接商用?
    本站所有资源版权均属于原作者所有,这里所提供资源均只能用于参考学习用,请勿直接商用。若由于商用引起版权纠纷,一切责任均由使用者承担。更多说明请参考 VIP介绍。
    提示下载完但解压或打开不了?
    最常见的情况是下载不完整: 可对比下载完压缩包的与网盘上的容量,若小于网盘提示的容量则是这个原因。这是浏览器下载的bug,建议用百度网盘软件或迅雷下载。若排除这种情况,可在对应资源底部留言,或 联络我们.。
    找不到素材资源介绍文章里的示例图片?
    对于PPT,KEY,Mockups,APP,网页模版等类型的素材,文章内用于介绍的图片通常并不包含在对应可供下载素材包内。这些相关商业图片需另外购买,且本站不负责(也没有办法)找到出处。 同样地一些字体文件也是这种情况,但部分素材会在素材包内有一份字体下载链接清单。
    波比源码
    一个高级程序员模板开发平台
    升级波友尊享更多特权立即升级