All pastes #402414 Raw Edit

Plouj

public text v1 · immutable
·published 2007-03-19 22:04 UTC
rendered paste body
elementCount ([X|Rest], X, N) :-
+--  2 lines: N is N + 1,-------------------------------------------------------

elementCount ([_|Rest], X, N) :-
        elementCount(Rest, X, N).
        
elementCount ([], X, 0).