54 lines
1.0 KiB
Plaintext
54 lines
1.0 KiB
Plaintext
;; regular arguments
|
|
|
|
(define (make-counter)
|
|
(let ((var 0))
|
|
(lambda ()
|
|
(mutate var (+ 1 var))
|
|
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))
|
|
|
|
;; key arguments
|
|
|
|
(define (make-key-counter)
|
|
((lambda (:keys 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
|