Lab de lenguajes de progra (Dr.Elisa)

PROGRAMAS SENCILLOS EN LISP

El factorial de un numero

Primero que nada abrimos la consola de clisp
ahi vamos a teclear el siguiente codigo:

(defun factorial (n &optional (resultado 1))
(if (= n 1)
resultado
(factorial (- n 1) ( * n resultado))))

///////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Te muestra una frase que dice FACTORIAL
Para poder ver el resultado del factorial de un numero se pone lo siguiente despues de que no te haya marcado errores la consola:
(factorial 3)
= 6
Se mostrara el resultado como la siguiente imagen:

Aqui otro pequeño programita:

Saber cual es el factor de un numero:

Escribimos el siguiente codigo en la consola de clisp:

(defun factor (x)

(or (loop for i from 2 to (sqrt x)

thereis (when  ( = (mod x i) 0)

i))

x))

///////

////////////////////////////////////////////////////////////////////////////////////////////////////////////

Al igual que el otro programa, despues de que te haya funcionado bien, ingresas:

(factor 35)

=5

Puede ser cualquier numero obvio.

El resultado se muestra en la siguiente imagen:

=)

Espero les hayan entendido, estan muy sencillos los programas.

SALUDOS A TODOS

ATTE: jesus alejandro beltran reyna