Hatena::Groupsicp

SICP読書記

 | 

2009-11-21

問題3.1

問題3.1 - SICP読書記 を含むブックマーク はてなブックマーク - 問題3.1 - SICP読書記

(define (make-accumulator initial)
  (lambda (next) (begin 
				   (set! initial (+ initial next))
				   initial)))


(define A (make-accumulator 5))

(A 10)
;; -> 15

(A 10)
;; -> 25

へえ。面白い。でも最近haskell触ってて、schemeとの共通点をちょっと見てたのでset!がちょっと違和感がある。

 |