【SICP练习】33 练习1.39



练习1.39

没想到最后一道题如此简单，n和d的过程可以如下定义：

(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就会好得多，这是将分数转换为浮点数的函数。