2008-05-20から1日間の記事一覧

問題3-1〜4

第三章に入りました。最初は代入に関する練習問題です。 問題3-1のアキュムレータ手続きです。 (define (make-accumulator init) (let ((sum init)) (lambda (x) (begin (set! sum (+ sum x)) sum)))) (define A (make-accumulator 5)) (A 10) ;=>15 (A 10) …