/*
 * suprimir elimina un elemento X de una lista simple
 *
 */ 

/*
  suprimir(X,L,R).

  Predicado que comprueba R es la lista que se obtiene al suprimir X de la lista L

  Argumentos
  + X:
    - Significado: elemento
    - Tipo: entrada y salida
  + L:
    - Significado: lista de elementos
    - Tipo: entrada y salida

  + R:
    - Significado: lista de elementos
    - Tipo: entrada y salida

  Variables locales
  + Cola:
    - Significado: lista de elementos
*/


suprimir(_,[],[]).

suprimir(X,[X|Cola],R):- !, suprimir(X,Cola,R).

suprimir(X,[Y|Cola],[Y|R]):- suprimir(X,Cola,R).



