■

Hello world と平行して SICP も毎日ちょっとずつ

 ;; 1.1.5
 
 (define (square x) (* x x))
 (define (sum-of-squares x y)
   (+ (square x) (square y)))
 (define (f a)
   (sum-of-squares (+ a 1) (* a 2)))
 (f 5)

• (f 5) の式を展開してみる。
• (sum-of-squares (+ 5 1) (* 5 2))
• (+ (square (+ 5 1)) (square (* 5 2)))
• (+ (* (+ 5 1) (+ 5 1)) (* (* 5 2) (* 5 2)))
• (+ (* 6 6) (* 10 10))
• (+ 36 100)
• 136