Contar el número de apariciones de un número en una lista

Question

Estoy escribiendo un programa en el prólogo que cuente el número de veces que aparece un número en una lista

count([],X,0). 
count([X|T],X,Y):- count(T,X,Z), Y is 1+Z. 
count([_|T],X,Z):- count(T,X,Z). 

y esto es la salida

?- count([2,23,3,45,23,44,-20],X,Y). 
X = 2, 
Y = 1 ; 
X = 23, 
Y = 2 ; 
X = 23, 
Y = 1 ; 
X = 3, 
Y = 1 ; 
X = 45, 
Y = 1 ; 
X = 23, 
Y = 1 ; 
X = 44, 
Y = 1 ; 
X = -20, 
Y = 1 ; 
false. 

es contar el mismo número varias veces

Cualquier ayuda se agradece

Answer 1

En lugar del maniquí vari capaces _ sólo tiene que utilizar otra variable X1 y asegurarse de que no unifica con X.

count([],X,0). 
count([X|T],X,Y):- count(T,X,Z), Y is 1+Z. 
count([X1|T],X,Z):- X1\=X,count(T,X,Z). 

Sin embargo, tenga en cuenta que el segundo argumento X se supone que es instanciado. Por ejemplo, count ([2,23,3,45,23,44, -20], 23, C) unificará C con 2. Si desea que el recuento para cada elemento de uso de

:- use_module(library(lists)). 

count([],X,0). 
count([X|T],X,Y):- count(T,X,Z), Y is 1+Z. 
count([X1|T],X,Z):- X1\=X,count(T,X,Z). 

countall(List,X,C) :- 
    sort(List,List1), 
    member(X,List1), 
    count(List,X,C). 

Entonces usted consigue

?- countall([2,23,3,45,23,44,-20],X,Y). 
    X = -20, 
    Y = 1 ? ; 
    X = 2, 
    Y = 1 ? ; 
    X = 3, 
    Y = 1 ? ; 
    X = 23, 
    Y = 2 ? ; 
    X = 44, 
    Y = 1 ? ; 
    X = 45, 
    Y = 1 ? ; 
    no 

Answer 2

también puede utilizar el predicado include:

count(L, E, N) :- 
    include(=(E), L, L2), length(L2, N). 

Answer 3

ocr(X,[],0):- !. 
ocr(X,[Element|Rs],V):- X = Element -> ocr(X,Rs,Ocr), V is 1+ Ocr; ocr(X,Rs,V). 

lo hice así. Eso te da solo una respuesta y termina.