dualmoo (./100) :
mais c'est encore plus beau comme ça :

(define (factorial n)
  (if (<= n 1)
    1
    (* n (factorial (- n 1)))))

scheme > lisp

oui mais c'est de loin nettement plus beau comme ça :

(define (factorial n)
  (if (= n 0)
    1
    (* n (factorial (- n 1)))))

#chipote#