example. Scheme 返回闭包的局部环境结果[mce-closure]

(run-scheme '((define (make-adder x) (lambda (y) (+ x y)))
                 (define add-three (make-adder 3)) (add-three 4)))

⇒ 7 · checked