如何在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變量嗎？似乎沒有太大的作用。