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，但不允许使用量化说明符。