solutions to 4.35, 4.36 and 4.37

[sicp.git] / src / sicp / ex3_1.rkt

#lang racket

(define (make-accumulator acc)
  (lambda (val)
    (begin
      (set! acc (+ acc val))
      acc)))