Subversion Repositories programming

Rev

Blame | Last modification | View Log | RSS feed 

count(_,[],0).
count(X,[X|T],N) :- count(X,T,M), N is M+1.
count(X,[_|T],N) :- count(X,T,N).