14th

14回目にして始めて、WRさんと一緒に勉強ができました。
今回もサイボウズ・ラボで勉強。
前回、λが出てきたときに、なんかすんなり納得できていたと思ったら。
勘違いでした…
今日はコテンパン(+_+)
しかも、反復脳、再帰脳も足りないっぽい。
もしかして、筋肉でできてるのかしらん(:_:)

帰りの電車で何度も、ステップ実行しながら確認。
見ると、なんとなくふむふむって感じなんだけどね。
まだいまいち。
今回はずっと、素人くさいSICP「独」書会にお世話になってました。

;recursive
(define (cont-frac n d k)
  (define (iter i)
    (if (= i k)
        (/ (n i) (d i))
        (/ (n i) (+(d i)(iter (+ i 1))))))
    (iter 1))

;iterative
(define (cont-frac n d k)
  (define (iter i result)
    (if (= i 0)
        result
        (iter (- i 1)
              (/ (n i) (+ (d i) result)))))
  (iter k 0))

(n i)の関数を関数で評価するあたりで挫折しているのに

(cont-frac (lambda (i) 1.0) (lambda (i) 1.0) 5)

とかきちゃうとさぁ。
あ”ー、もうってかんじに（ｗ
がんばらな。