SICP по-русски

Решение упражнения 1.39 из SICP

Еще одно простое упражнение, сроди упражнению 1.38.

Просто приведу определение процедуры для вычисления тангенса по формуле Ламберта:

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