Comparto el material de estudio antes de un Examen de Prolog. % insertar un entero al inicio de la lista insertarInicio(X,L,[X|L]). % Insertar un elemento al final de una lista insertarFinal(X,[],[X]). insertarFinal(X,[L|Ls],[L|R]):-insertarFinal(X,Ls,R). % Insertar un entero en una lista de enteros indicandole la posicion insertar(E,[X|Xs],1,L):- L=[E,X|Xs],write("Fin"),nl,!. insertar(E,[X|Xs],P,L):- N1=P-1,write(N1),nl,insertar(E,Xs,N1,L1),L=[X|L1]. % Buscar un elemento en una lista pertenece(X,[X|_]):-!. pertenece(X,[_|Xs]):-pertenece(X,Xs). % Eliminar un elemento de una lista eliminar(X,[X|Xs],Xs):-!. eliminar(X,[Y|Ys],[Y|Lr]):-eliminar(X,Ys,Lr). % Eliminar ocurrencias de un elemento en una lista eliminarOcurrencias(_,[],[]):-!. eliminarOcurrencias(X,[X|Xs],Ys):- eliminarOcurrencias(X,Xs,Ys),!. eliminarOcurrencias(X,[Y|Ys],[Y|Lr]):-eliminarOcurrencias(X,Ys,Lr). % Determina si todos los elementos de una lista son iguales iguales([])....
Comentarios
Publicar un comentario