7 lines
96 B
Racket
7 lines
96 B
Racket
|
#lang sicp
|
||
|
|
|
||
|
|
(define (make-accumulator sum)
|
||
|
|
(lambda (inc)
|
||
|
|
(set! sum (+ sum inc))
|
||
|
|
sum))
|