【SICP练习】57 练习2.27

2015/09/08 21:46
阅读数 70


练习2.27

又是修改程序的题目,要求我们写出的deep-reverse函数要将表中的元素也反转过来,这其中应该要用到递归来实现吧。

(define (deep-reverse tree)

   (cond ((null? tree) ‘())

          ((not (pair? tree)) tree)

          (else (reverse (list (deep-reverse(car tree))

                           (deep-reverse (cadrtree)))))))

但是对于((1 2) (3 4) (5 6))这种,上面的函数就无法按我们的刚才的想法来返回了。它的返回值会是(4 3) (2 1)),而我们要的返回值则是((6 5) (4 3) (2 1))。因此要对程序进行修改。

(define (deep-reverse lst)

   (define (iter remainder-items result)

       (if (null? remainder-items)

           result

           (iter (cdr remainder-items

                (cons (if (pair? (car remainder-items))

                         (deep-reverse (car remainder-items))

                         (car remainder-items))

                      result))))

     (iter lst ‘()))

版权声明:本文为 NoMasp柯于旺 原创文章,未经许可严禁转载!欢迎访问我的博客:http://blog.csdn.net/nomasp

展开阅读全文
打赏
0
0 收藏
分享
加载中
更多评论
打赏
0 评论
0 收藏
0
分享
返回顶部
顶部