每次添加一個。初學者

Question

需要運行這個遞歸5次。並每次增加Row。

calculateSum([],List,Row,5,L) :- nl. 
calculateSum([M|Rest],List,Row,Col,[Y|Tail]):- 
    calcHeu(Rest,L),sum(L,S),index(List, Row, Col, V),Y is V + S,inc(Row), 
    calculateSum(M,List,Row,Z,Tail). 

換句話說我要像而（行< COL）...

並且如果山口==行然後跳到步驟運行。

Answer 1

我按照通常在簡單的Prolog程序中所要求的那樣排序了參數。 沒有規範，我可以猜測你的代碼，注意我交換了M和Rest。驗證第一個參數的含義......

calculateSum(_, _List, _Row, 5, []). 
calculateSum([M|Rest], List, Row, Col, Result):- 
    Col < 5, 
    ( Col \= Row 
    -> calcHeu(M, L), 
     sum(L, S), 
     index(List, Row, Col, V), 
     Y is V + S, 
     Result = [Y|Tail] 
    ; Result = Tail 
    ), 
    Row1 is Row + 1, 
    Col1 is Col + 1, 
    calculateSum(Rest, List, Row1, Col1, Tail). 

編輯：添加if Col \= Row ... else ...條件，警惕這種構造是有點不尋常，例如參見here的文檔。請注意，第一個參數無論如何都會被讀取。如果必須經過不變，這是更好地添加其他calculateSum/5：

calculateSum(_, _List, _Row, 5, []). 
calculateSum(Input, List, Num, Num, Result):- 
    Row is Num + 1, 
    Col is Num, 
    calculateSum(Input, List, Row, Col, Result). 
calculateSum([M|Rest], List, Row, Col, Result):- 
    Col < 5, 
    .... 

HTH