如何統計列表中出現WORD的次數？

Question

如何統計列表中出現WORD的次數？

例如： counthowmany(hello,[hello,how,are,you,hello,hello],N)。

N給出的單詞總數hello發生。

由於

Answer 1

這裏是一個解決方案：

counthowmany(_, [], 0) :- !. 
counthowmany(X, [X|Q], N) :- !, counthowmany(X, Q, N1), N is N1+1. 
counthowmany(X, [_|Q], N) :- counthowmany(X, Q, N). 

第一行是終止測試：一個空的列表中，則計數爲零。另外兩行是遞歸調用，如果第一個元素匹配（第2行），則計數遞增。

這裏是一個類似的，但純邏輯的版本（沒有切割），如通過大流士建議：

counthowmany(_, [], 0). 
counthowmany(X, [X|Q], N) :- counthowmany(X, Q, N1), N is N1+1. 
counthowmany(X, [Y|Q], N) :- X \== Y, counthowmany(X, Q, N). 

Answer 2

這裏是一個替換的實施方式。這是使用累加器的尾遞歸。

countwords(X,L,N) :- countwords(X,L,0,N),!. 
countwords(X,[],N,N). 
countwords(X,[X|T],P,N) :- P1 is P+1 , countwords(X,T,P1,N). 
countwords(X,[H|T],P,N) :- X\==H , countwords(X,T,P,N). 

Answer 3

使用meta-predicatetcount/3亦隨像這樣具體化的長期平等(=)/3：

?- tcount(=(hello),[hello,how,are,you,hello,hello],N). 
N = 3.       % succeeds deterministically 

Answer 4

一個甚至aswer

countWord([],0). 
countWord([_|List], A):- countWord(List,B), A is B+1.