Prolog-计算列表中的重复次数

Question

我正在尝试浏览列表并计算给定单词出现的次数。到目前为止，我已经做到了：

count_repetitions([_], [], 0).

count_repetitions([Word], [Word|Tail], Count):-

   count_repetitions([Word], Tail, X), 

   Count is X + 1.

count_repetitions([Word], [Z|Tail], Count):-

   Word \= Z, 

   count_repetitions([Word], Tail, Count).

因此查询?- count_repetitions([yes],[yes,and,yes,and,no], X).将给出X = 2。

这似乎起作用。现在，我需要编写一个谓词，以表形式输出包含搜索词及其出现次数的列表X = [(yes - 2)]。我完全被困住了，有什么建议吗？

Answer 1

库（集合）通常被低估：count(L, C) :-    aggregate(set(W-N), aggregate(count, member(W, L), N), C).产量1 ?- count([a,b,a],C).C = [a-2, b-1].所以，更简单count(W, L, W-N) :-    aggregate(count, member(W, L), N).产量?- count(a, [a,b,a], C).C = a-2.基于setof，aggregate / 3可以更好地控制变量的量化（即哪些值被聚合），但是如果没有解决方案，它将失败，而不是在需要时产生0。在这种情况下，基于findall / 3的aggregate_all / 3将返回0，但不允许使用量化说明符。