首页 > 代码库 > 【SICP读书笔记(四)】练习2.27 --- 表序列reverse的扩展:树结构的deep-reverse
【SICP读书笔记(四)】练习2.27 --- 表序列reverse的扩展:树结构的deep-reverse
题目要求是,修改练习2.18所做的reverse过程,得到一个deep-reverse过程。它以一个表为参数,返回另一个表作为值,结果表中的元素反转过来,其中的子树也反转。
例如:
(define x (list (list 1 2) (list 3 4)))x((1 2) (3 4))(reverse x)((3 4) (1 2))(deep-reverse x)((4 3) (2 1))
方法也挺简单,思路跟reverse过程一样,用一个辅助的过程来完成任务,辅助过程带有一个空表,碰到元素就添加到表头,如果元素也是个list就开始递归。
所有,最终的关键是要有“闭包思维”。这个词是不是比递归的逼格高一点?lol
(define (deep-reverse tree) (deep-reverse-help tree ()))(define (deep-reverse-help tar res) (if (null? tar) res (if (pair? (car tar)) (deep-reverse-help (cdr tar) (cons (deep-reverse-help (car tar) () ) res )) (deep-reverse-help (cdr tar) (cons (car tar) res)))))
【SICP读书笔记(四)】练习2.27 --- 表序列reverse的扩展:树结构的deep-reverse
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。