(define (factorielle-iter n acc) (if (= n 0) acc (factorielle-iter (- n 1) (* n acc)))) (define (factorielle n) (factorielle-iter n 1))