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