(define x (list (list 1 2) (list 3 4)))
(define (deep-reverse s)
(cond ((not (pair? s)) s)
(else (cons (deep-reverse (cdr s)) (deep-reverse (car s))))))
(deep-reverse x)
SICP 联系2.27 实现deep-reverse
最新推荐文章于 2019-02-28 01:25:41 发布