ex-3.1 | SICP | OSS-Web

Open Source WEB

Chat (Lingr.com)

(define (make-accumulator init-value)
  (let ((sum init-value))
    (lambda (val)
      (set! sum (+ sum val))
      sum)))

Gauche-0.8.5 を使う

gosh> (define A (make-accumulator 5))
A
gosh> (A 10)
15
gosh> (A 10)
25

--hidenao

##(sicp-answer-code "ex-3.1.scm")

このサイトは、 IPA の「平成15年度オープンソフトウエア活用基盤整備事業」の委託事業として開発されたKahuaで試験的に運用しております。