]> git.rkrishnan.org Git - sicp.git/blob - src/sicp/ex3_1.rkt
rewrite `quote->cons' using `match'.
[sicp.git] / src / sicp / ex3_1.rkt
1 #lang racket
2
3 (define (make-accumulator acc)
4   (lambda (val)
5     (begin
6       (set! acc (+ acc val))
7       acc)))