Проверить, присутствует ли число в списке ровно 2 раза - Prolog

Формулировка задачи:

благодаря вам, все больше и больше понимаю пролог, спс за отзывчивость.

Код к задаче: «Проверить, присутствует ли число в списке ровно 2 раза - Prolog»

textual
domains
int=integer
intl=int*
 
predicates
count(int,int,intl)
task(int,intl)
 
clauses
count(_,0,[]).
count(N,K,[N|T]) :- K1=K-1, count(N,K1,T).
count(N,K,[P|T]) :- N<>P, count(N,K,T).
 
task(N,L) :- count(N,2,L).

9   голосов, оценка 4.333 из 5


СОХРАНИТЬ ССЫЛКУ