問題1.39

昨日の続きで一気にやっちゃえば良かった。

(define (tan-cf x k)
  (define (square x)
	(* x x))
  (define (d i)
	(- (* 2 i) 1))
  (define (n i)
	(if (= i 1)
		x
		(- (square x))))
  (cont-fact n d k))