2008-04-15 Ex 2.39 SICP (define (reverse xs) (fold-right (lambda (x y) (append y (list x))) nil xs)) (define (reverse xs) (fold-left (lambda (x y) (cons y x)) nil xs))