Prologにcurrentとpreviousを追加するにはどうすればよいですか？初心者のプロローグ

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つのリストを印刷しますこれらの値を加算して返します。リストまたは単一の値として表示されます。

Answer 1

私はこれがあなたの望むものだと思います。毎回Yをリストに追加する。

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

本当にK変数が必要ですか？多くのことをしていないようです。