60 lines
1.1 KiB
Plaintext
60 lines
1.1 KiB
Plaintext
;; regular arguments
|
|
|
|
(define (make-counter)
|
|
(let ((var 0))
|
|
(lambda ()
|
|
(set! var (+ 1 var)))))
|
|
|
|
(define counter1 (make-counter))
|
|
|
|
(assert (= (counter1) 1))
|
|
|
|
(define counter2 (make-counter))
|
|
|
|
(assert (= (counter2) 1))
|
|
|
|
(assert (= (counter2) 2))
|
|
(assert (= (counter1) 2))
|
|
(assert (= (counter1) 3))
|
|
(assert (= (counter2) 3))
|
|
(assert (= (counter2) 4))
|
|
(assert (= (counter2) 5))
|
|
(assert (= (counter1) 4))
|
|
(assert (= (counter1) 5))
|
|
|
|
(define (g)
|
|
(define x 0)
|
|
(lambda ()
|
|
(define temp x)
|
|
(mutate x (+ x 1))
|
|
temp))
|
|
|
|
;; key arguments
|
|
|
|
(define (make-key-counter)
|
|
((lambda (:var)
|
|
(lambda ()
|
|
(mutate var (+ 1 var))
|
|
var))
|
|
:var 0))
|
|
|
|
|
|
(define key-counter1 (make-key-counter))
|
|
|
|
(assert (= (key-counter1) 1))
|
|
|
|
(define key-counter2 (make-key-counter))
|
|
|
|
(assert (= (key-counter2) 1))
|
|
|
|
(assert (= (key-counter2) 2))
|
|
(assert (= (key-counter1) 2))
|
|
(assert (= (key-counter1) 3))
|
|
(assert (= (key-counter2) 3))
|
|
(assert (= (key-counter2) 4))
|
|
(assert (= (key-counter2) 5))
|
|
(assert (= (key-counter1) 4))
|
|
(assert (= (key-counter1) 5))
|
|
|
|
;; rest arguments will no be copied so we don't need to test them here
|