如何在Prolog中添加当前和先前？初级序言

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

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

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

你真的需要K变量吗？似乎没什么作用

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