Lambda (4)

状態の共有
   (define fns (let ((x 0))
                 (list
                   (lambda (a) (set! x a))
                   (lambda () x))))
   fns ⇒ 2つの関数のリスト : 
           { 引数aを取り、xをaに更新する }
           { 引数を取らず、xを返す }

   ((car fns) 3)
   ((cadr fns))    ⇒ 3
   ((car fns) 5)
   ((cadr fns))    ⇒ 5