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))
(define (tan-cf x k)
(cont-frac (lambda (i)
(if (= i 1)
x
(- (* x x))))
(lambda (i)
(- (* i 2) 1))
k))