Hatena::Groupsicp

SICP読書記

 | 

2009-11-21

問題3.8

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

(define f
  (let ((value undefined))
	(lambda (x) (if (eq? value undefined)
					(set! value x)
					value))))

(+ (f 0) (f 1))
;; -> 0 となる
;; つまり、gaucheは左から順に引数を評価している
 |