我正在嘗試瀏覽列表并計算給定單詞出現的次數。到目前為止，我已經做到了：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。這似乎起作用?，F在，我需要編寫一個謂詞，以表形式輸出包含搜索詞及其出現次數的列表X = [(yes - 2)]。我完全被困住了，有什么建議嗎？
3 回答
侃侃爾雅
TA貢獻1801條經驗 獲得超16個贊
庫（集合）通常被低估：
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，但不允許使用量化說明符。
添加回答
舉報
0/150
提交
取消