序言:列表中的最大重复元素

Question

关于如何检索列表中重复次数最多的元素的任何想法。

即如下所示，

?- maxRepeated([1,2,7,3,6,1,2,2,3],M).
M = 2.

Answer 1

我非常喜欢 Prolog 的关系功能:

maxRepeated(L, M) :-
    sort(L, S),
    maplist(count(L), S, C),
    keysort(C, [_-M|_Ms]).
count(L, S, I-S) :-
    aggregate(count, member(S, L), C), I is -C.

测试:

?- maxRepeated([1,2,7,3,6,1,2,2,3],M).
M = 2.

编辑，现在更紧凑了!

maxRepeated(L, M) :-
    setof(I-E, C^(aggregate(count, member(E, L), C), I is -C), [_-M|_]).