/*
  lugar(X,L,N)

  Predicado que comprueba si el elemento X ocupa el lugar N en la lista L

  Nota: se utiliza el corte "!"

  Argumentos
  + X:
    - Significado: elemento
    - Tipo: entrada y salida
 
  + L:
    - Significado: lista de elementos
    - Tipo: entrada

  + N:
    - Significado: número
    - Tipo: entrada y salida
*/

lugar(X,[X|_],1):-!.

lugar(X,[_|Cola],N):-
			lugar(X,Cola,N1),
			N is N1 + 1.
