All pastes #402417 Raw Edit

Plouj

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

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

elementCount ([], X, 0).