ejercicios IA

UNIVERSIDAD REGIONAL AUTONOMA DE LOS
ANDES

UNIANDES

INTELIGENCIA ARTIFICIAL
LABORATORIO
JAIR CRUZ
6to SISTEMAS
ING. JORGE YAGUAR

PRACTICA LABORATORIO 1
Lisp (o LISP) es una familia delenguajes de programación de
computadora de tipo multiparadigma con una larga historia y una
sintaxis completamente entre paréntesis.
Especificado
originalmente
en
1958
por
John
McCarthy
ysus
colaboradores en el Instituto Tecnológico de Massachusetts, Lisp es el
segundo lenguaje de programación de alto nivel más viejo con un
extenso uso hoy en día; solamente FORTRAN es más viejo.Al igual que FORTRAN, Lisp ha cambiado mucho desde sus comienzos y han
existido un gran número de dialectos en su historia. Hoy, los
dialectos Lisp de propósito general más ampliamente conocidos sonCommon Lisp y Scheme.
EJERCICIO 2
Definir una función que, dados un número real y, opcionalmente, un
número de cifras decimales con valor por defecto 0, redondee el número
real a ese número decifras decimales.
(defun redondeo (numero &optional (cifras-decimales 0))
(/ (fround (* numero
(expt 10 cifras-decimales)))
(expt 10 cifras-decimales)))

CL-USER 1 > redondeo 3.1254885
3.0CL-USER 2 > redondeo 5.24152698
5.0

PRACTICA LABORATORIO 2
EJERCICIO
Un numero entero positivo se dice que es perfecto si la suma de sus
divisores propios coincide con el mismo. Definir unpredicado que,
dado un entero positivo, determine si es o no un numero perfecto. La
función debe preguntar desde el teclado si se deben escribir o no en
pantalla los divisores propios del número y actuaren consecuencia.
(defun num-perfecto-p (num)
(let ((escribir-divisores nil))
(princ "¿Quieres escribir los divisores propios? [s/N]: ")
(when (equal (read-line) "s")
(setf escribir-divisores t)(format t "Se escribirán los divisores propios de ~D~%"
num))
(let ((divisores-propios ())
(suma-divisores 0)
(posible-divisor 1))
(loop
(when (eq (mod num posible-divisor) 0)
(setf...