
/*
 * veces(X,L,N): N representa el número de apariciones de X en la lista simple L
 *
 */
 
veces(_,[],0).

veces(X,[X|Cola],N):-
				veces(X,Cola,N1),
				N is N1 + 1.
				
veces(X,[Y|Cola],N):-
 				not(X = Y),
				veces(X,Cola,N).
				

				
/*
 * veces_bis(X,L,N): N representa el número de apariciones de X en la lista simple L
 * Se usa el corte en vez de la negación con not
 */
 
veces_bis(_,[],0).

veces_bis(X,[X|Cola],N):-
				!,
				veces_bis(X,Cola,N1),
				N is N1 + 1.
				
veces_bis(X,[_|Cola],N):-
				veces_bis(X,Cola,N).
				
