list - 列表中的视觉序言重复

Question

我的任务是在视觉序言的列表中找到最可重复的元素。因为我是序言的初学者，所以我不知道如何做到这一点。我有一些像下面这样的例子，但我不能适应 Visual Prolog :(

listmax(L, M):-
   listmax(L, [], [], M).

listmax([], Seen, MMax, Max):-
   MMax=[] -> Max=Seen ; listmax(MMax, [], [], Max).
listmax([H|T], Seen, MMax, Max):-
   (  member(H, Seen) ->
      listmax(T, Seen, [H|MMax], Max)
   ;  listmax(T, [H|Seen], MMax, Max)
   ).