prolog - 如何在 Prolog 中添加当前和上一个？初学者序言

Question

calcHeu([],K) :- nl.
calcHeu([X|Rest],K) :-
findMin(X,Y),write(Y),
calcHeu(Rest,Y).

如果我通过 [[1,2,3],[5,4,9],[7,8,9]] 它将打印 1 4 7 这是我想添加这些值并返回它们的每个列表的最小值。在列表中或作为单个值。

Answer 1

我想这就是你想要的。每次都将 Y 添加到列表中。

calcHeu([],K,List) :- nl.
calcHeu([X|Rest],K,[Y|Tail]) :-
findMin(X,Y),write(Y),
calcHeu(Rest,Y,Tail).

你真的需要K变量吗？好像没多大作用。