All pastes #402449 Raw Edit

Plouj

public text v1 · immutable
·published 2007-03-19 22:29 UTC
rendered paste body
  % elementCount(List, Element, Count)
  %  - returns the number of occurances of Element in List
  elementCount([X|Rest], X, N) :-
          elementCount(Rest, X, NL),
          N is NL+1.
  
  elementCount([_|Rest], X, N) :-
          elementCount(Rest, X, N).
  
  elementCount([], _, 0).
  elementCount([X], X, 1).