scheme-interpreter-story/counter.scm

#lang racket

(provide make-counter)

(define (make-counter)
  (let ((i 0))
    (lambda ()
      (set! i (+ i 1))
      i)))