(define (cont-frac-linear n d k)
(define (iter i result)
(if (= i 0)
result
(iter (- i 1) (/ (n i) (+ (d i) result)))))
(iter k 0))
(define (n i)
(cond ((= (remainder i 3) 2) (* (/ (+ i 1) 3) 2.0))
(else 1.0)))
(newline)
(display (+ 2 (cont-frac-linear (lambda (i) 1.0)
n
100)))
SICP 练习1.38 寻找e的值
最新推荐文章于 2021-03-21 19:54:51 发布