Subversion Repositories programming

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
107 ira 1
count(_,[],0).
2
count(X,[X|T],N) :- count(X,T,M), N is M+1.
3
count(X,[_|T],N) :- count(X,T,N).
4