LISP - Factorial de un número

Laboratorio de Lenguajes de Programación - Semana 6

Continuamos analizando este bello lenguaje, ahora les traigo el siguiente código

Factorial de un número

Primero comenzamos por definir el nombre de la función:
(defun factorial...

Para calcular el factorial de un valor necesitamos una variable que almacene el valor:
...(N)...

Despues hay que definir las condiciones del cálculo, es decir un caso base:
...(if (= N 1) 1 ...

Por último escribimos la recursion:
...(* N (factorial (- N 1)))))

FUNCION COMPLETA: (defun factorial (N) (if (= N 1) 1 (* N (factorial (- N 1)))))

Aqui les muestro como debe quedar en la terminal, el cálculo corresponde al factorial de 6, 5, 4 y 3:



Saludos!!! ^_^