比较一个元素在列表中与给定数字出现的次数

Question

我对 Prolog 练习有点问题。

假设我有一个获得奥斯卡奖的演员名单。 像这样：

(steven spielberg, steven spielberg, francis ford coppola, michael curtiz)

当一个名字出现两次时，这意味着这个人赢得了 2 个奥斯卡奖，以此类推。 我需要做的是通过这个列表找到 go 并找到每个赢得 N 次或更多奥斯卡奖的演员，谓词如下

wonMoreOscars(Number, Activity):-

其中数字是我们必须与列表进行比较的 N。 我已经有一个 function 计算列表中出现次数越多的人以及该人在电影中的活动 function，但已经被覆盖。

谁能帮帮我，我有代码可以找到赢得更多奥斯卡奖的人：

occS([],_,_,_,_):-write(0),nl,write('+'),nl, !.
occS([H|T],_,_,_,_):-occ([H|T],0,0,H,H).
occ([],_,Top,_,Nome):-write(Nome),nl,write(Top),nl,write('+'),nl, !.
occ([H|T],Count,Top,El_corrente,_):- compare(=,H,El_corrente),C is Count +      1,C>=Top,occ(T,C,C,El_corrente,El_corrente), !.
occ([H|T],_,Top,El_corrente,Nome):- not(compare(=,H,El_corrente)),occ(T,1,Top,H,Nome),!.
occ([H|T],Count,Top,_,Nome):- C is Count + 1,occ(T,C,Top,H,Nome), !.

但现在我在这个案子上遇到了麻烦。

Answer 1

我假设您要编写一个谓词，该谓词接受一个数字和一个演员列表，并返回一个列表中至少指定次数的那些列表（ wonMoreOscars(Number, Activity)没有足够的参数）。 你可以这样做：

oscars(N, T, R) :- oscars(N, T, [], R).

oscars(N, [], A, R) :- countOscars(N, A, R).
oscars(N, [H|T], A, R) :- addOscar(H, A, A1), oscars(N, T, A1, R).

addOscar(H, [], [(H, 1)]).
addOscar(H, [(H,N)|T], [(H,N1)|T]) :- N1 is N + 1, !.
addOscar(H, [HA|T], [HA|T1]) :- addOscar(H, T, T1).

countOscars(_, [], []).
countOscars(N, [(H,HN)|T], [H|TR]) :- HN >= N, countOscars(N, T, TR), !.
countOscars(N, [_|T], TR) :- countOscars(N, T, TR).