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|_]).

Answer 2

此解决方案对列表进行排序，使元素按顺序显示 - 一旦它们不再重复，就不需要维护所有元素。

您的prolog解释器必须具有函数msort()，该函数对列表进行排序，以维护重复的条目。

maxRepeated([], []).
maxRepeated(L, E) :-
    msort(L, [H|T]),
    maxRepeated(T, H, H, 1, 0, E).

maxRepeated([], H, _, C1, C2, H) :- C1 >= C2.
maxRepeated([], _, X, C1, C2, X) :- C1 < C2.

maxRepeated([H|T], H, LastF, C1, C2, E) :-
    maxRepeated(T, H, LastF, C1 + 1, C2, E).

maxRepeated([X|T], H, LastF, C1, C2, E) :-
    (
        C1 > C2
        ->  maxRepeated(T, X, H, 1, C1, E)
        ;   maxRepeated(T, X, LastF, 1, C2, E)
    ).

复杂性由使用的排序给出，通常是O(n log n)，一旦排序后，列表只被遍历一次，汇总元素并跟踪最常见的元素。

问候！

Answer 3

如果您知道A _i可以采用的最大值，并且此A _max是否可以创建一个与A _{max <一样大的数组< / sub>然后有一种方法可以在 O（n）时间内找到最重复的元素。}

int A[max+1]; // set all elements to 0
int S[n]; // Set S
for (i=0;i<n;i++) A[ S[i] ]++;

int m=0, num; // num is the number to be found
for (i=1;i<=max;i++)
  if (A[i] > m)
  {
    m = A[i];
    num = i;
  }
print (num)

Answer 4

这是一个快速而肮脏的答案。我将问题限制在一组允许的元素中。有效但需要详细说明。

maxRepeated([],_,Current,_,Current).
maxRepeated([H|T],L,Current,MaxCount,X) :-
    (
         count(L,H,N),
         N > MaxCount,
     maxRepeated(T,L,H,N,X) 
    )
    ;
    maxRepeated(T,L,Current,MaxCount,X).

count([],X,0).
count([X|T],X,Y):- count(T,X,Z), Y is 1+Z.
count([X1|T],X,Z):- X1\=X,count(T,X,Z).

prolog：列表中最大重复的元素

4 个答案: