]> git.rkrishnan.org Git - sicp.git/blob - src/sicp/ex2_39.rkt
rewrite `quote->cons' using `match'.
[sicp.git] / 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