SICP 习题2.39 reverse实现

(define reverse-list
(lambda (s)
(if (null? s)
'()
(append (reverse-list (cdr s)) (list (car s))))))

(newline)
(display (reverse-list '(1 2 3 4)))

(newline)
(display (reverse '(1 2 3 4)))

(define (reverse sequence)
(fold-right (lambda (x y) (append y (list x))) '() sequence))

(newline)
(display (reverse '(1 2 3 4)))

(define (reverse sequence)
(fold-left  (lambda (x y) (append (list y) x)) '() sequence))

(newline)
(display (reverse '(1 2 3 4)))