1 (define (test-case actual expected)
10 ;; Exercise 2.39. Complete the following definitions of reverse (exercise 2.18) in terms of fold-right and fold-left from exercise 2.38:
12 (define (reverse-right sequence)
13 (fold-right (lambda (x y)
18 (define (reverse-left sequence)
19 (fold-left (lambda (x y)
25 ;; (iter (op result (car items)) (cdr items))
26 (test-case (reverse-right '(1 2 3 4 5 6)) '(6 5 4 3 2 1))
27 (test-case (reverse-right '((1 2) (3) (4 (5 6)))) '((4 (5 6)) (3) (1 2)))
28 (test-case (reverse-left '(1 2 3 4 5 6)) '(6 5 4 3 2 1))
29 (test-case (reverse-left '((1 2) (3) (4 (5 6)))) '((4 (5 6)) (3) (1 2)))