【SICP读书笔记（三）】练习2.18 --- 表序列的reverse方法

来自练习2.18

 

请定义出过程reverse，它以一个表为参数，返回的表中所包含的元素与参数表相同，但排列顺序与参数表相反：

(reverse (list 1 4 9 16 25))
(25 16 9 4 1)

　　

有几个难点：

0、不能采用(cons (reverse (cdr lst) ) (car lst))的方式。在cons过程中，如果表参数在前，那么出来的就是嵌套表而不是单独的表。

1、不能采用之前实现的append过程，例如(append (reverse (cdr lst)) (car lst))。由于car lst是一个数字，因此构建出来的也不是纯粹的表。

 

关键在于，在cons过程中，我们必须让表元素在表的前面，我们才能构建出存粹的表。

 

想象一下，你有一个表，还有一个元素，应该如果把元素加到表头？

太简单了，就是(cons 1 (list 2 3))就可以了。

因此，我们可以定义一个辅助过程reverse-help，来维护一个结果表和当前表的变量，将当前表的数据添加到结果表的表头

 

(define (reverse-help tar res)
    (if (null? tar)
         res
         (reverse-help (cdr tar) (cons (car tar) res))))

这样，当该过程返回时，res就是反转的结果表。

 

reverse过程主体：

(define (reverse lst)
    (reverse-help lst ()))