SICP 练习1.37 计算黄金分割律
cont−frac是递归
cont−frac−linear是迭代
(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))
(newline)
(display (cont-frac (lambda (i) 1.0) (lambda (i) 1.0) 100))
(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))
(newline)
(display (cont-frac-linear (lambda (i) 1.0) (lambda (i) 1.0) 100))
智能推荐
注意！
本站转载的文章为个人学习借鉴使用，本站对版权不负任何法律责任。如果侵犯了您的隐私权益，请联系我们删除。