make-bank-account に対応
MyLisp(仮称) で
以下サイトの make-bank-account が動くようになりました!
http://www.shido.info/lisp/scheme_asg.html
(define (make-bank-account amount) (lambda (n) (set! amount (+ amount n)) amount)) (define yamada-bank-account (make-bank-account 1000)) (yamada-bank-account 5000) ;6000 (yamada-bank-account -5500) ;500
環境をLambdaが出てきたときに新しく作って
Evalした時に捨てていましたが
Lambdaの中で環境を保持するようにしました。
悩み続けて 4日かかりました。orz
でも動くようになってよかった。
moremagic
2013-07-16