(define (fib n) (if (< n 2) n (+ (fib (- n 1)) (fib (- n 2))))) (time (fib 30)) ;time は cdrの一つ目の実行時間を計測するデバック関数 ;実行結果 ;8918[ms] ;832040 結構遅くなっちゃった。 環境の取り回しが重くなったのが原因なのかなぁ。

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-acc…