【SICP练习】33 练习1.39



练习1.39

没想到最后一道题如此简单,nd的过程可以如下定义:

(define (n i)

   (if (= i 1)

      i

      (- (* i i))))

(define (d i)

    (- (* 2 i) 1))

这里我们就不再重复写成块结构了。

(define (tan-cf x k)

   (cont-frac n d k))

我测试了(tan-cf 100 100)以后吓了一跳,如果在(cont-frac n d k)前加一个exact-inexact就会好得多,这是将分数转换为浮点数的函数。

版权声明:本文为 NoMasp柯于旺 原创文章,如需转载请联系本人。

posted @ 2015-02-17 20:01  nomasp  阅读(98)  评论(0编辑  收藏  举报