Ejemplo De Solución A Ejercicio En Prolog

Ejemplo de solución de ejercicio en Prolog







Inteligencia Artificial










Enunciado del problema.
Ejercicio#9

Se desea implementar en Prolog un sistema que permita llevar el control del catálogo discográfico con que cuenta uno de los clubs del proyecto 23. Para ello se cuenta con una base de hechos que se actualiza frecuentemente y donde aparecen registradoshechos que denominaremos disco, los cuales guardan información sobre: número del disco dentro del catálogo, género al que pertenece y listado con el número de los tracks más gustados que se encuentran en el mismo. También el hecho cuenta con un listado con la información completa de cada uno de los tracks, la cual consiste en número, título de la canción y tiempo de duración en minutos.

Propongaun hecho, disco con datos hipotéticos teniendo en cuenta la descripción anterior.
Formule las siguientes preguntas a la base de hechos propuesta:
• ¿Existe algún disco en el catálogo con más de cuatro canciones de las más gustadas?
• ¿Obtener el título de la primera canción, del disco catalogado con el número 6?

Construya predicados que permitan:
• Dado el número de un disco dentro delcatálogo, conocer si tiene alguna canción cuyo tiempo de duración exceda los 6 minutos.

Nota: Implemente y posteriormente utilice en este predicado, un selector para obtener el tiempo de duración de una canción.

• Dado el número de un disco obtener un listado con el nombre de todas las canciones más gustadas que tiene.
• Conocer si el club es capaz utilizando todos los discos de su catálogo dedisponer de más de 96 horas ininterrumpidas de música.































Presentación del Trabajo

Resumen

Con la realización de esta tarea se persigue consolidar los conocimientos necesarios para escribir programas en el lenguaje PROLOG.







Introducción.

Breve descripción del problema a resolver:

Se desea implementar en Prologun sistema que permita llevar el control de un catálogo discográfico. Se posee información de los discos, los que poseen número dentro del catálogo, género al que pertenece y listado con los números de tracks más gustados del disco. También se tiene conocimiento que cada tracks posee número, título y tiempo de duración.
1. Proponga un hecho, disco con datos hipotéticos teniendo en cuenta ladescripción anterior.
2. Formule las siguientes preguntas a la base de hechos propuesta:
2.1 ¿Existe algún disco en el catálogo con más de cuatro canciones de las más gustadas?
2.2 ¿Obtener el título de la primera canción, del disco catalogado con el número 6?

3. Construya predicados que permitan:
3.1 Dado el número de un disco dentro del catálogo, conocer si tiene alguna canción cuyo tiempo deduración exceda los 6 minutos.

Nota: Implemente y posteriormente utilice en este predicado, un selector para obtener el tiempo de duración de una canción.

3.2 Dado el número de un disco obtener un listado con el nombre de todas las canciones más gustadas que tiene.
3.3 Conocer si el club es capaz utilizando todos los discos de su catálogo de disponer de más de 96 horas ininterrumpidas demúsica.












Actividades realizadas para resolverlo:
1. disco(3,rock,[1,5,6,3,2],[traks(1,m,3),traks(2,n,4),traks(3,o,2),traks(4,p,5),traks(5,q,4),traks(6,r,5)]).
2. 2.1 ?- exist.
2.2 ?- titulo(S).
3. 3.1 exede6(N):-findall(L,(disco(N,G,M,L)),D),cabeza(D,V),pre(V),write('Si este disco tiene un tema que excede a los 6 minutos'),!.
exede6(N):-write('Este disco no tieneningún disco que exceda a los 6 minutos').
3.2 gustadas(N):-findall(Gustadas,disco(N,G,Gustadas,T),L1),findall(Traks,disco(N,G,Gus,Traks),L2),cabeza(L1,L3),cabeza(L2,L4),unir1(L3,L4,[],L),write('Los temas más gustados para este disco son:'),nl,imprime_lista(L).
3.3 horas:-findall(L,disco(N,G,M,L),X),concadenar(X,Y),duracion(Y,Lista),suma(Lista,S),S > 96.



Desarrollo.

Código...