Prolog查找具有两个值的列表的最大值

Question

所以我正在使用 prolog，我有这样的功能：

ratingList(X):-goalKeeperRating(X,A),centreForwardRating(X,B),secondStrikerRating(X,C),centreDefenseRating(X,D),fullBackRating(X,E),centerMidfieldRating(X,F),attackingMidfieldRating(X,G),defendingMidfieldRating(X,H),
Y=[[goalKeeper,A],[centerForward,B],[secondStriker,C],[centerDefense,D],[fullBack,E],[centerMidfield,F],[attackingMidfieldRating,G],[defendingMidfieldRating,H]],
maxlist(Y,N),N=[L,M],write('Best Position ' + L + ' with rating ' +M).

基本上第一行找到数字并将其放入第二个元素，然后我们将数字放入列表（Y）中。 Y 中的所有内容都是长度为 2 的列表，其中包含足球位置名称加上我们得到的数字。 MaxList 只是找到最大的数字。看起来像这样

maxlist([A],A).
maxlist([A,B|C],D):- A=[_,X],E=[_,Y],D=[_,Z],maxlist([B|C],E),max(X,Y,Z),.
max(A,B,A):-A>=B.
max(A,B,B):-A<B.

但是，每当我尝试打印单词时，它总是会导致打印地址。无论如何我可以解决这个问题吗？

Answer 1

你在构造 D 时没有给它的第一个元素任何值。 max 函数必须与整个元素一起工作，而不仅仅是列表的第二个元素。以你自己的风格

maxlist([A], A).
maxlist([A, B | As], M) :-
    maxlist([B | As], M1), max(A, M1, M).
max(A, B, A) :- A = [_, X], B = [_, Y], X >= Y.
max(A, B, B) :- A = [_, X], B = [_, Y], X < Y.

找到列表最大值的迭代方法

maxlist([X | Xs], Max) :- maxlist(Xs, X, Max).
maxlist([], A, A).
maxlist([B | Bs], A, C) :-
    A = [_, X], B = [_, Y],
    (X > Y -> T = A ; T = B),
    maxlist(Bs, T, C).