ompayne
/
sicp
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
sicp/3_1.rkt

7 lines
96 B
Racket
Raw Permalink Blame History

#lang sicp
(define (make-accumulator sum)
(lambda (inc)
(set! sum (+ sum inc))
sum))
Reference in New Issue View Git Blame Copy Permalink