(define (gen_f) (let ((a0 0)) (lambda (x) (let ((a a0)) (set! a0 x) (- a))))) (define f (gen_f))あ、いや、そういう話ではないですか・・・ - これは、まあ、半分ネタなのですが、多分、一応、工学的（制御工学とか）にはある程度の意味のある手続きな…