Code Review
Compare your solutions
  
    #| BEGIN (Введите свое решение) |#
(define (cont-frac n d k)
  (define (f i)
    (if (= i k) (/ (n k) ( d k))
        (/ (n i) (+ (d i) (f (+ i 1))))))
  (f 1))
(define (e k)
  (+ 2.0
     (cont-frac (lambda (x) 1)
                (lambda (x)
                  (if (= (remainder x 3) 2)
                      (/ (* (+ x 1) 2) 3)
                      1))
                k)))
#| END |#