Články

(define eulr
    (lambda (n x soucet)
    (cond
     ((< n 1) soucet)
    (else
    (letrec
      ((fakt
       (lambda (n)
        (cond
         ((<= n 1) n)
        (else (* n (fakt (- n 1)))))))
       (mocnina
        (lambda (n x)
         (cond
         ((>= 1 n) x)
        (else (* x (mocnina (- n 1) x)))))))
      (eulr (- n 1) x (+ soucet (/ (mocnina n x) (fakt n)))))))))