LISP

aoshi001
(usa Kurumin)

Enviado em 28/10/2008 - 14:34h

Alguem sabe me explicar esse programa ai abaixo.

Principalmente a 2º linha do programa.


(defun fat (n)
(if (zerop n)
1
(* n (fat (1- n)))
)
)
(format t "Fatorial de ~D é: ~A~%" 10 (fat 10))