Toggle navigation
?
users online
Logout
Open hangout
Open chat for current file
cuenta(_,[],0) :- !. cuenta(A,[B|L],N) :- A == B, !, cuenta(A,L,M), N is M+1. cuenta(A,[_B|L],N) :- % A \== _B, cuenta(A,L,N). /** <examples> ?- cuenta(a,[a,b,a,a],N). ?- cuenta(a,[a,b,X,Y],N). */