mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-21 14:49:18 +02:00
16 lines
261 B
Scheme
16 lines
261 B
Scheme
|
|
(define (make-counter n)
|
|
(lambda ()
|
|
(set! n (+ n 1))
|
|
n))
|
|
|
|
(define f (make-counter 0))
|
|
(define g (make-counter 100))
|
|
|
|
(write (f)) (newline)
|
|
(write (f)) (newline)
|
|
(write (g)) (newline)
|
|
(write (g)) (newline)
|
|
(write (f)) (newline)
|
|
(write (g)) (newline)
|
|
|