sicp-ex-1.39

 (define (tan-cf x k) 
   (cont-frac (lambda (i) 
                (if (= i 1) x (- (* x x)))) 
              (lambda (i) 
                (- (* i 2) 1)) 
              k)) 

<< Previous exercise (1.38) | Next exercise (1.40) >>