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))
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))