Ir al contenido principal

Prolog - Ejemplos de Listas

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([]).
iguales([_]):-!.
iguales([X,X|Xs]):-iguales([X|Xs]).
  • % Concatenar 2 listas
concatenar(L,[],L).
concatenar(L,[X|Xs],R):-insertarFinal(X,L,L2), concatenar(L2,Xs,R).
  • % Retornar enesimo elemento de una lista
% lista, posicion, elemento
enesimo([X|_],1,X).
enesimo([_|Xs],N,E):-N1 = N-1, enesimo(Xs,N1,E).
% Eliminar los elementos de una lista que estan en las posiciones dadas
% por los elementos de otra lista de enteros
% ListaElemen, PosActual, Lista posic, ListaRes
eliminarUnaPos([],_,_,[]).
eliminarUnaPos([_|Hs],P,Lp,Lr):- pertenece(P,Lp), P1 = P+1, eliminarUnaPos(Hs,P1,Lp,Lr),!.
eliminarUnaPos([H|Hs],P,Lp,[H|Lr]):- P1 = P+1, eliminarUnaPos(Hs,P1,Lp,Lr).
eliminarElemenLista(Le,Lp,Lr):-eliminarUnaPos(Le,5,Lp,Lr).
  • % Unir dos listas en el sentido de Conjuntos
% Lista A, Lista B, Union A,B
unirListas(L1,[],L1).
unirListas(L1,[X|Xs],R):- not(pertenece(X,L1)), unirListas([X|L1],Xs,R),!.
unirListas(L1,[_|Xs],R):- unirListas(L1,Xs,R).
  • % Diferencia de dos listas en el sentido de conjuntos
% Lista A, Lista B, Diferencia A-B
diferenciaListas([],_,[]).
diferenciaListas([X|Xs],L,[X|Lr]):-not(pertenece(X,L)),diferenciaListas(Xs,L,Lr),!.
diferenciaListas([_|Xs],L,Lr):-diferenciaListas(Xs,L,Lr).
  • %Invertir una lista
invertir2([],L,L).
invertir2([X|Xs],L,Lf):-L1=[X|L], invertir2(Xs,L1,Lf).
invertir2(L,Lf):-invertir2(L,[],Lf).

Codigo testeado en swi-prolog y Visual Prolog

Comentarios

  1. Excelente aporte. Muchas gracias!

    ResponderEliminar
  2. Falta es una buena explicacion de cada uno xD.. pero se agradece el aporte

    ResponderEliminar
  3. no sale la respuesta les falta explicar mejor

    ResponderEliminar

Publicar un comentario

Entradas populares de este blog

Primer CodeLab de Web Services con Mule ESB, JAX WS, SOAP, WSDL, Spring

Primer CodeLab de Web Services usando [ Mule ESB , JAX WS , SOAP , WSDL , Spring ]. en este post no hablaré nada teórico sobre Mule , ya que ello lo pueden encontrar Googleando, será un lab totalmente práctico. Requisitos: - JDK  1.6 - MuleStudio - soapUI Paso a Paso para crear Web Services con Mule : 1. Crear proyecto Mule ( MuleStudio ):  Next > Next > Next > Finish 2.- Crear el Objeto Producto.java package com.dmotta.mule.labuno.mulelabuno.bo; import java.io.Serializable; public class Producto implements Serializable { private String id; private String nombre; private String marca; private String descripcion; public Producto() { } public Producto(String id, String nombre, String marca, String descripcion) { this.id=id; this.nombre=nombre; this.marca=marca; this.descripcion=descripcion; } //getters/setters } 3.- Crear la Interface que publicará los métodos listarProductos() y getDetalleProdu...

RESTful Webservices con Java (Jersey / JAX-RS) - Tutorial Uno

REST con Java (JAX-RS) usando Jersey Este articulo explica como desarrollar RESTful web services en Java con JAX-RS implementacion de Jersey. En este ejemplo se usara SpringSource Tools Suite(Eclipse Helios), Java 1.6, SpringSource TC Server and JAX-RS 1.1. (Jersey 1.4). 1. REST - Representational State Transfer 1.1 Informacion General: En una Arquitectura REST tipicamente se tiene un REST server , el cual provee acceso a los Clientes REST  que acceden a consultar, modificar un Recurso REST . REST permite que los recursos sean presentados en diferentes tipos de datos, "text, html, xml, JSON" .  El Cliente REST  puede generar una peticion de un tipo de dato via el protocolo HTTP. 1.2. HTTP metodos Los metodos estandar HTTP usados en en REST son  PUT, GET, POST, DELETE. 1.3. RESTFul webservices Un RESTFul webservices es basados en metodos HTTP y en el concepto REST.  Por lo general se define URI base para los servicios, los MIME-types sus...