;;; Fichier euler.drs / 20 fevrier 2000

(define (euler n)
  (cond ((= n 0) 0)
        (else (+ (/ 1 n) (euler (- n 1))))))

(define (euler-term n)
  (define (aux n res)
    (cond ((= n 0) res)
          (else (aux (- n 1) (+ (/ 1 n) res)))))
  (aux n 0))