練習問題 : let

以下のプログラムの実行させ、なぜそうなるか考えよ。

(define (exercise-sample0 x)
    (let ((x 10)
	  (y (+ x 5)))
      (* x y)))

(define (exercise-sample1 x)
    (let* ((x 10)
	   (y (+ x 5)))
      (* x y)))

(define (exercise-1)
    (let ((sample0 (exercise-sample0 1))
	  (sample1 (exercise-sample1 1)))
      (= sample0 sample1)))

> (exercise-1)    ; 実行
#f                ; 結果

解答例