16 lines
191 B
Plaintext
16 lines
191 B
Plaintext
|
|
(fn Counter () (do
|
|
(let counter 0)
|
|
|
|
(fn count () (do
|
|
(return counter)
|
|
))
|
|
|
|
(fn increment () (do
|
|
(+= counter 1)
|
|
))
|
|
|
|
(return (list count increment))
|
|
))
|
|
|