Problem 1.39

Friday, August 23, 2019; ago; Download .md

SICP Exercise 1.39

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