在Prolog中定义谓词处理列表：实现frequentest谓词找出高频元素

实现思路 #

要实现frequentest(InList, OutList)谓词，我们分四步完成：

1. 统计元素出现次数：先提取输入列表中的唯一元素，再计算每个元素在原列表中的出现次数。
2. 确定最大次数：遍历所有元素的次数值，找出其中的最大值。
3. 筛选目标元素：收集所有出现次数等于最大值的元素，组成最终结果列表。

完整代码 #

% 统计元素X在列表List中的出现次数N
count(_, [], 0).
count(X, [X|Tail], N) :-
    count(X, Tail, N1),
    N is N1 + 1.
count(X, [Y|Tail], N) :-
    X \= Y,
    count(X, Tail, N).

% 获取列表中的唯一元素（通过sort去重，结果会自动排序）
unique_elements(List, Unique) :-
    sort(List, Unique).

% 生成元素与对应次数的配对列表
element_counts(List, Counts) :-
    unique_elements(List, Unique),
    maplist(count_with_list(List), Unique, Counts).

count_with_list(List, X, (X, Count)) :-
    count(X, List, Count).

% 找出所有元素中的最大出现次数
max_count([(_, Count)|Rest], Max) :-
    max_count(Rest, Count, Max).

max_count([], CurrentMax, CurrentMax).
max_count([(_, Count)|Rest], CurrentMax, Max) :-
    Count > CurrentMax,
    max_count(Rest, Count, Max).
max_count([(_, Count)|Rest], CurrentMax, Max) :-
    Count =< CurrentMax,
    max_count(Rest, CurrentMax, Max).

% 主谓词：返回出现次数最多的所有元素
frequentest(InList, OutList) :-
    element_counts(InList, Counts),
    max_count(Counts, Max),
    findall(X, member((X, Max), Counts), OutList).

测试示例 #

以下是几个典型测试场景的运行结果：

场景1：单一元素出现次数最多 #

?- frequentest([1,2,2,3,3,3], OutList).
OutList = [3].

场景2：多个元素出现次数相同且最多 #

?- frequentest([a,a,b,b,c], OutList).
OutList = [a,b].

场景3：所有元素完全相同 #

?- frequentest([5,5,5,5], OutList).
OutList = [5].

场景4：空列表输入 #

?- frequentest([], OutList).
OutList = [].

内容的提问来源于stack exchange，提问作者Mashka