如何从列表中找到输出，从而产生SWI-Prolog中某些查询的最大结果？
我现在只是拿起Prolog，所以我不熟悉做大多数事情的正常方式。
基本上我有一个规则，它从输入中给出一个值：
ScoreFromInput(Input, Score) :- ...
bestInput(BestInput) :-
%#Bind the list of valid inputs
legalInputs(ValidInputs),
%# -1000 is a dummy score, it should get replaced on the first call to bestInputHelper
bestInputHelper(ValidInputs,-1000,BestInput).
%#I think this rule should work if the first input in the list is not the best one
bestInputHelper([Input|RestOfInputs],BestScore,BestInput):-
bestInputHelper(RestOfInputs,RestBestScore,BestInput),
ScoreFromInput(Input,BestScore),
RestBestScore > BestScore.
%#And this one if it is the best input
bestInputHelper([Input|RestOfInputs],BestScore,Input):-
bestInputHelper(RestOfInputs,RestBestScore,_RestBestInput),
ScoreFromInput(Input,BestScore),
RestBestScore =< BestScore.
没有找到相关结果
已邀请:
2 个回复
先对冈蒲
best_input(Best) :- legal_inputs(Inputs), member(Best, Inputs), input_score(Best, Score), + ( member(Better, Inputs), input_score(Better, S), S > Score).并且Please_use_readable_names inSteadOfUnreadableOnes。徘廷
maxScoreOfList(Z,B,[H|T]) :- scoreFromInput(H,S), maxScoreOfListAux(Z,B,H,S,T).maxScoreOfListAux(Z,B,Z,B,[ ]). maxScoreOfListAux(Z,B,X,S,[H|T]) :- scoreFromInput(H,Q), ( S >= Q -> ( Y = X, R = S ) ; ( Y = H, R = Q ) ), maxScoreOfListAux(Z,B,Y,R,T).