如何获取另一个列表中的列表的总和？

Question

我有一个包含列表数量的列表。我想将这些列表的总和列入另一个列表。

full_list（[[12,13,14]，[5,7,9]，[1,12,72]]）。 ％这是我的原始列表

我想得到如下输出， L = [39,21,85]。

有人请解释我如何使用prolog做到这一点。 在此先感谢！

Answer 1

使用列表和谓词是这样的：

listSum(nil,N,N); 
listSum([H|Tail],N,Res) :- Acc is N+H, listSum(Tail,Acc,Res) 


sumofSubLists([L1,L2,L3],[R1,R2,R3]):- 
    listSum(L1,0,R1), 
    listSum(L2,0,R2), 
    listSum(L3,0,R3) 

调用

sumofSubLists([[12,13,14],[5,7,9],[1,12,72]], ResultList) 

应该给结果。 这可以更有效地完成...... 希望它可以帮助

---

好吧，如果你想与任何数量的清单做它，你需要定义一些新的谓词：

的addElement添加一个新的元素列表：

addElement(X,[],[X]); 
    addElement(X,L,[X|L]); 

另外一个追加名单：

append([],X,X); 
    append([T|Q1],X,[T|Q2]) :- append(Q1,X,Q2); 

和一个递归一个对工作清单：

sumSubListsRec(nil,AccList,ResultList):- ResultList = AccList; 
sumSubListsRec([HeadList| Tail], AccList,ResultList) :- 
       listSum(HeadList,0,Tmp), 
       append(AccList,[Tmp],T), 
       sumSubListsRec(Tail,T,ResultList); 

现在你可以用任何数量的列表来调用它。

Answer 2

一个functionnal设计，采用SWI-Prolog的工作

:- use_module(library(lambda)). 

sum_list(L, R) :- 
    maplist(\X^foldl(\T^U^V^(V is T+U), X, 0), L, R). 

lambda.pl可以在这里找到：http://www.complang.tuwien.ac.at/ulrich/Prolog-inedit/lambda.pl

Answer 3

有sum_list/2，准备内置使用：

full_list(I, L) :- 
    maplist(sum_list, I, L). 

test：

?- full_list([[12,13,14],[5,7,9],[1,12,72]], L). 
L = [39, 21, 85].