Ejercicios con Listas en Prolog

Un poco de Teoría:

Una lista es una secuencia de elementos que pueden tener cualquier longitud, los elementos de una lista pueden ser cualquier tipo de terminos (constantes, variables o estructuras)

Composición, en la mayoría de lenguajes incluso en Prolog, una lista se compone de dos partes

a) Cabeza: la cabeza es el elemento inicial de una lista

b) Cola: el resto de elementos de la lista

Una lista es un caso especial de árbol.

ejemplo de lista

L=(1,2,3,4,5,[]), donde 1 es la cabeza y (2,3,4,5,[] ) es la cola.

L=(a,[]), este es el caso de que la lista tiene solo un elemento, pero también se le debe considerar que el elemento final de toda lista es el vació o también representado por [ ].

Una ves explicado algo de la teoría ahora vamos a la implementacion en el IDE SWI-Prolog

Implementacion:

1. % Autor: Joel Fernandez Segura
2. % Fecha: 29/04/2014
4. %-------------   Lista Vacia --------------------------
5.  es_lista_vacia(L):- L == [].
6.  es_lista_vacia([|]).
8.  %-------------  listas Iguales -----------------------
10.  listas_iguales(X,Y):- X==Y.
11.  listas_iguales([A|Ca],[B|Cb]):- A==B,listas_iguales(Ca,Cb).
13. %------------- Concatenar------------------------------
15. concatenar([],L,L).
16. concatenar([A|Ca],L2,[A|Cc]):- concatenar(Ca,L2,Cc).
18. % --------------- miembro  ----------------------------
20. miembro(X,[X|_]).
21. miembro(A,[_|Cb]):- miembro(A,Cb).
23. % -----------------adyacentes(E1,E2,L) -----------------
25. adyacentes(X,Y,[X,Y|_]):-!.
26. adyacentes(X,Y,[_|L]):-adyacentes(X,Y,L).
28. %---------------------- ultimo(E,L) --------------------
30. ultimo(E,[E|[]]).
31. ultimo(E,[_|Cl]):- ultimo(E,Cl).
33. %-----------------------  palindromo(L) -----------------
35. palindromo(L):- reverse(L,L).
37. % -------------------- longitud(N,l) --------------------
39. longitud([],0).
40. longitud([_|Cx],N):- longitud(Cx,N1), N is N1+1.
42.  % -------------------  prefijo(L,P) ---------------
44. prefijo([],_):-!.
45. prefijo([X],[X|_]):-!.
46. prefijo([X|L],[X|M]):-prefijo(L,M).
47. prefijo([X|T],[L|M]):-es_lista_vacia(X),prefijo(X,L),prefijo(T,M).
50.  %------------- sublista(L,S) -------------------------
51. sublista([],_).
52. sublista([A|B],K):- miembro(A,K), sublista(B,K).
55. %---------------  maximo (L,M)- ----------------------
57. maximo([X|Xs],M):-mayor(Xs,X,Y),Y==M.
58. mayor([],M,M).
59. mayor([Z|Zs],Aux,Menor):-Aux>Z,mayor(Zs,Aux,Menor).
60. mayor([Z|Zs],Aux,Menor):-Z>Aux,mayor(Zs,Z,Menor).
62. % -------- añadir por delante (L,E,R) -------------------
64. añadir_por_delante([X|Xs],E,R):-concatenar([E],[X|Xs],R).
66. %----------   añadir por detras(L,E,R) ------------------
68. añadir_por_detras([],[E],[E]).
69. añadir_por_detras([X|Xs],E,[X|Xz]):-concatenar(Xs,[E],Xz).
71. %eliminar elemento(L,E,R) elimina todos los elementos iguales a 3
73. elimina_elemento(_,[],[]).
74. eliminar_elemento(X,[X|C],R):-!,eliminar_elemento(X,C,R).
75. eliminar_elemento(X,[Y|Xs],[Y|Xa]):- eliminar_elemento(X,Xs,Xa).
77. % ----------  eliminar_prim_aparicion(L,E,R) ---------------------
79. eliminar_prim_aparicion([X|Xs],X,Xs).
80. eliminar_prim_aparicion([Y|C1],E,[Y|C2]):-eliminar_prim_aparicion(C1,E,C2).
82. % -------------------  duplicar_lista(L,LL)  -----------------------
83. %EJEMPL: duplicar_lista([1,2],LL). respta  [1,2,1,2]
85. duplicar_lista(L,Ll):-concatenar(L,L,Ll) .
88. %-------------- duplicar_elementos(L,LL) ---------------------------
90. duplicar_elementos([],[]).
91. duplicar_elementos([X|Xs],[X,X|Xss]):-duplicar_elementos(Xs,Xss).

Espero les sirva y, cualquier duda, si alguna implementacion no sirve comuniquen para corregirlo, si necesitan mas códigos pueden pedirlo.