PPT Slide
/* count ( Item, List, Ans ) */
count( X , [ X | T ] , N ) : - count( X , T , J ) , N is J + 1 .
count( X , [ _ | T ] , N ) : - count( X , T , N ) .
| ? - count ( a , [ a , b , a , e , r , a , a , e , q , a ] , X ) .
COUNTING THE NUMBER OF OCCURRENCES OF A PARTICULAR ITEM IN A LIST