js/games/nluqo.github.io/~bh/61a-pages/Lectures/3.2/count4.scm


1
2
3
4
5
6
7
8

(define make-count
  (let ((glob 0))
    (lambda ()
      (let ((loc 0))
        (lambda ()
	  (set! loc (+ loc 1))
	  (set! glob (+ glob 1))
          (list loc glob))))))