每次添加一个。初学者

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