【SICP读书笔记（四）】练习2.27 --- 表序列reverse的扩展：树结构的deep-reverse

最新推荐文章于 2024-09-24 10:39:09 发布

转载最新推荐文章于 2024-09-24 10:39:09 发布 · 145 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

原文链接：http://www.cnblogs.com/shadowmydx/p/4155759.html

本文介绍了一个名为deep-reverse的过程，该过程能够反转一个列表及其内部的所有子列表。通过使用辅助函数deep-reverse-help实现了这一功能，确保每个子列表也被正确地反转。

题目要求是，修改练习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)))))

转载于:https://www.cnblogs.com/shadowmydx/p/4155759.html