Mam piękną funkcję która zlicza ilość wystąpień wskazanego elementu na liście. Mój problem polega na tym, że dostałem polecenie skrócenia jej o jedną linijkę i nie potrafię tego ugryźć. Pomożecie ?:)
policz(_,[],0) :- !.
policz(A,[A|T],N) :- !, policz(A,T,N1), N is N1 + 1.
policz(A,[_|T],N) :- policz(A,T,N).