Prolog - 矩阵中行的总和

Question

一个 nxn 矩阵可以表示为 n 个列表的列表，每个列表有 n 个元素， 矩阵实际上可以 1 2 3 4 5 6 7 8 9 写为 [[1, 2, 3], [4, 5, 6], [7, 8, 9]]。

我需要编写一个 Prolog 程序来添加每个 ROW 中的所有值。 我是 Prolog 新手，请帮忙。 提前致谢！

以下是我所做的，但似乎不起作用......

sum(X):-
    result(X,0,0,Y),!.

result([H|T],I,J,Length):-
    rowTotal([H|T],J,Sum),
    write('Sum of Row: '),
    write(Sum),nl,
    (not(I = Length)) ->
    (NewI is I + 1,
    result([H|T],NewI,0,Length);!).

rowTotal([H|T],J,Sum):-
    rowValue(H,J,Value),
    rowTotal(T,NewSum),
    Sum is Value + NewSum.

rowTotal([],0).

rowValue([H|T],J,Value):-
    (J < 3) ->
    Value = H,
    NewJ is J+1,
    rowValue([H|T],NewJ,Value).

Answer 1

您不需要计数器 I 和 J。只需边走边解压列表即可。下面是 rowTotal 的解决方案：

rowTotal([], 0).
rowTotal([H|T], Sum) :-
    rowTotal(T, SubTotal),
    Sum is H + SubTotal.

以下尾递归解决方案有点难以理解，但效率更高：

rowSum(L, Sum) :-
    rowResult(L, 0, Sum).

rowResult([], Acc, Acc).
rowResult([H|T], Acc, Sum) :-
    S is H + Acc,
    rowResult(T, S, Sum).

应用相同的技术来实现 sum 和 result 。