/* Borra todas las apariciones de un elemento en una lista simple */

/*
  borrar(X,L,R).

  Predicado que comprueba R es la lista que se obtiene al borrar todas las apariciones de 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
  + Y:
    - Significado: elemento
  + Cola1:
    - Significado: lista de elementos
  + Cola2:
    - Significado: lista de elementos
*/

borrar(_,[],[]).

borrar(X,[X],[]).

borrar(X,[X|Cola1],Cola2):-
				borrar(X,Cola1,Cola2).

borrar(X,[Y|Cola1],[Y|Cola2]):- 
				borrar(X,Cola1,Cola2).
