q1.38

オイラーだった。

(define (kyusu x)
  (if (= (modulo (+ x 1) 3) 0)
      (* 2 (+ 1 (floor (/ x 3))))
      1
  )
)

(kyusu  1)
(kyusu  2)
(kyusu  3)
(kyusu  4)
(kyusu  5)
(kyusu  6)
(kyusu  7)
(kyusu  8)
(kyusu  9)
(kyusu 10)
(kyusu 11)
(kyusu 12)

(define (cont-frac-38 n d k)
  (define (iter N D i)
    (if (> i k)
        0
        (begin
         (display (D i))(newline)
        (/ (N i) (+ (D i) (iter N D (+ i 1))))
        )
    )
  )
  (iter n d 1)
)

(+ 2
(cont-frac-38
 (lambda (i) 1.0)
 (lambda (i) (kyusu i))
 1000 )
)

イェイイェイ！
どうでもいいですけどphp5.3で無名関数サポートですね。
無名関数==キモイなのはどうしようも無いことなので使われないと思います。
テンションあがるけど。