src/sicp/ex2_39.rkt

   1 #lang racket
   2
   3 (require "utils.rkt"
   4          "ex2_36.rkt"
   5          "ex2_38.rkt")
   6
   7 (define fold-right accumulate)
   8
   9 (define (reverse1 coll)
  10   (fold-right (lambda (x y) (append y (list x))) '() coll))
  11
  12 (define (reverse2 coll)
  13   (fold-left (lambda (x y) (cons y x)) '() coll))
  14