SICP 联系2.27 实现deep-reverse

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