Prolog ejercicios resueltos

INSTITUTO POLITÉCNICO NACIONAL
ESCUELA SUPERIOR DE CÓMPUTO

Artificial Inteligence

Tarea No. 2

Prolog

Profesor: Hernández Cruz Macario

Manzano León Jansel

3CM4

Fecha de entrega:
15-Octubre-2012

Desarrollo

I. Introducción a Prolog – Hechos y Reglas
Ejercicio 1.1
Considerando la lámina anexa (tomada de la serie de televisión “Los Simpsons”),
represente en lenguaje Prolog las características de los objetos y las relaciones entre ellos.

Asimismo, basadas en las relaciones “progenitor” y el género de las personas (si es
hombre o mujer), establecer las reglas para:

abuelo(X,Y):-
abuela(X,Y):-
tio(X,Y):-
tia(X,Y):-
hermano(X,Y):-
hermana(X,Y):-

Solución (1.1)

macho(homero).
macho(bart).
macho(abraham).
macho(mr_burns).
macho(clancy).
macho(seymour_skinner).
macho(milhouse).

hembra(jacqueline).
hembra(edna).
hembra(mona).
hembra(marge).
hembra(paty).
hembra(selma).
hembra(maggie).
hembra(lisa).

animal(snowball).

alien(kang).
macho(kang).

progenitor(homero,bart).
progenitor(marge,bart).

progenitor(homero,lisa).
progenitor(marge,lisa).

progenitor(kang,maggie).
progenitor(marge,maggie).

progenitor(abraham,homero).
progenitor(mona,homero).

progenitor(clancy,marge).
progenitor(jacqueline,marge).

progenitor(clancy,selma).
progenitor(jacqueline,selma).

progenitor(clancy,paty).
progenitor(jacqueline,paty).

conyuge(homero,marge).

abuelo(X,Y):-progenitor(M,Y),progenitor(X,M),macho(X).
abuela(X,Y):-progenitor(M,Y),progenitor(X,M),hembra(X).

hermano(X,Y):-progenitor(M,Y),progenitor(M,X),macho(X).
hermana(X,Y):-progenitor(M,Y),progenitor(M,X),hembra(X).

tio(X,Y):-progenitor(M,Y),hermano(M,X).
tia(X,Y):-progenitor(M,Y),hermana(M,X).

II. Aritmética y recursividad en Prolog
Ejercicio 2.1
Considere la definición de la sucesión de Fibonacci.
fib(n) = n si n < = 1
fib(n) = fib(n-1) + fib(n-2) si n > 1

De tal forma que los primeros términos de la sucesión son:
0,1,1,2,3,5,8,13,21…...
Desarrolle un conjunto de reglas para calcular el término n-esimo de la sucesión.

?- fibonacci(0,F).
F = 0
?- fibonacci(1,F).
F = 1
?- fibonacci(2,F).

F = 1
?- fibonacci(3,F).
F = 2
?- fibonacci(4,F).
F = 3

Solución (2.1)

fibonacci(0,0).
fibonacci(1,1).
fibonacci(N,F):- N1 is N-1,N2 is N1-1,
fibonacci(N1,A),
fibonacci(N2,B),
F is A+B.

III. Listas
Ejercicio 3.1

Escriba la(s) regla(s) necesaria(s) para imprimir una lista de la siguiente forma.
?- imprime([a, b, c, d]).
a
b
c
d
true

Solución (3.1)

imprime([]).
imprime([H|T]):- write_ln(H),
imprime(T).

Ejercicio 3.2
Escriba la(s) regla(s) necesaria(s) para agregar un elemento al principio de una lista.

?- agregar(gato,[zorro, zopilote, puerco],L).
L = [gato, zorro, zopilote, puerco]
true

Solución (3.2)
agregar(E,L,[E|L]).
agregar(E,[X|Y],[X|Z]):-agregar(E,Y,Z).

Ejercicio 3.3
Escriba la(s) regla(s) necesaria(s) para agregar un elemento al final de una lista.

?- agregar_final([agua, tierra, viento], fuego, L).
L = [agua, tierra, viento, fuego]
true

Solución (3.3)
agregar_final([],X,[X|[]]).
agregar_final([H1|T1],X,[H1|T]):-agregar_final(T1,X,T).

Ejercicio 3.4.
Escriba la(s) regla(s) necesaria(s) para invertir los elementos de una lista.

?- de_reversa([angel, beto, sandra, zoyla],L).
L = [zoyla, sandra, beto, angel]
true

Solución (3.4)
de_reversa([],_).
de_reversa([H1|T1],L):- agregar_final(M,H1,L),
de_reversa(T1,M).

Ejercicio 3.5.
Escriba la(s) regla(s) necesaria(s) para obtener el último elemento de una lista.

?- ultimo([piolin, silvestre, bugss_bunny, porky],X).
X = porky
true

Solución (3.5)
ultimo(X,[X]).
ultimo(X,[_|T]):-ultimo(X,T).

Ejercicio 3.6.
Escriba la(s) regla(s) necesaria(s) para obtener las permutaciones de una lista.
?- permutacion([bart,lisa,maggie],L).
L = [bart, lisa, maggie] ;
L = [bart, maggie, lisa] ;
L = [lisa, bart, maggie] ;
L = [lisa, maggie, bart] ;
L = [maggie, bart, lisa] ;
L = [maggie, lisa, bart] ;

Solución (3.6)
permutacion([],[]).
permutacion([X|Y],Z):- permutacion(Y,L),
agregar(X,L,Z).

Ejercicio 3.7.
Escriba la(s) regla(s) necesaria(s) para verificar si una lista esta ordenada.

?- ordenada([agua, fuego, tierra, viento]).
true
?- ordenada([agua, tierra, viento, fuego]).
false

Solución (3.7)
primero([H|_],H).
ordenada([]).
ordenada([_]).
ordenada([H|T]):- primero(T,X),
(H @< X),
ordenada(T).

Ejercicio 3.8.
Escriba la(s) regla(s) necesaria(s) para ordenar los elementos de una lista.

?- ordenar([stan, cartman, kyle, kenny], L).
L = [cartman, kenny, kyle, stan] ;

Solución (3.8)
ordenar([],_).
ordenar(L,Z):- permutacion(L,Z),
ordenada(Z).

Conclusiones
Por la realización de este trabajo, se puede establecer que el lenguaje Prolog está
orientado a la Inteligencia Artificial, usando la programación lógica. Gracias a su facilidad
de programar y su sencilla sintaxis gramatical y numérica, se pueden escribir rápidamente
y con pocos errores programas claramente leíbles, además cualquier usuario puede
acceder a él si lo desea y sin problemas de entendimiento.
También utiliza pocos comandos en comparación con otros lenguajes de programación.
Por otra parte en este lenguaje al igual que otros, hay que tener en cuenta la asociatividad
de los operadores antes de trabajar con él.
Las listas son la única estructura disponible en Prolog y el uso de estas para una
programación de complejidad moderada, es de fundamental importancia. Para esto hay
que tener en cuenta la naturaleza recurrente tanto de las llamadas como de las listas en
este lenguaje.
Además Prolog se puede trabajar en diferentes sistemas operativos, tales como UNIX,
WINDOWS, MAC-OS, entre otros.

Referencias
http://www.gedlc.ulpgc.es/docencia/lp/documentacion/GB_Prolog.pdf

http://blog.utp.edu.co/alejandropinto/files/2012/04/Pr%C3%A1cticas-de-Prolog-
%E2%80%93-Departamento-de-Ciencia-de-La-Computaci%C3%B3n-e-
Inteligencia-Artificial-%E2%80%93-Universidad-de-Alicante.pdf

http://larmor.nuigalway.ie/~detinko/prolog_manual.pdf

http://www.csupomona.edu/~jrfisher/www/prolog_tutorial/1.html

Prolog ejercicios resueltos

Más contenido relacionado

La actualidad más candente (20)

Similar a Prolog ejercicios resueltos (20)

Último (20)

Prolog ejercicios resueltos