07/11/09 08:42:26
>>563 の言うようにset!がシンプルだけど，
let環境の値としてinc, dec（を含むリスト）を返し，それを外部でinc, decで束縛すれば...
(define tmp
(let1 count 0
(define (inc) ...)
(define (dec) ...)
(list inc dec)))
(define inc (car tmp))
(define dec (cadr tmp))
;; 自分では動くか試してない（ぉ
07/11/09 08:42:26
>>563 の言うようにset!がシンプルだけど，
let環境の値としてinc, dec（を含むリスト）を返し，それを外部でinc, decで束縛すれば...
(define tmp
(let1 count 0
(define (inc) ...)
(define (dec) ...)
(list inc dec)))
(define inc (car tmp))
(define dec (cadr tmp))
;; 自分では動くか試してない（ぉ