sicp 2.18

最新推荐文章于 2017-04-09 21:05:00 发布

最新推荐文章于 2017-04-09 21:05:00 发布 · 126 阅读

SICP 专栏收录该内容

62 篇文章

订阅专栏

本文介绍了如何使用递归和辅助函数实现一个反转列表的程序，通过实例演示了列表元素顺序的反转过程。

Exercise 2.18. Define a procedure reverse that takes a list as argument and returns a list of the same elements in reverse order:

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

(define (reverse items)
  (if (null? items)
      '()
      (append (reverse (cdr items)) (list (car items)))))

(define (append list1 list2)
  (if (null? list1)
      list2
      (cons (car list1) (append (cdr list1) list2))))

(reverse (list 1 4 9 16 25))