【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 ()))

  

上一篇:深入理解jQuery的Event机制


下一篇:Form DataGridView绑定BindingSource的几种方式