prolog中列表元素的求和

我想对列表中的元素求和，如下所示：

sum([1,[2,3],4],S).

我用过，但我有个问题：

sum([],0).
sum([T|R],M) :- sum(R,S), M is T+S.

我得到以下错误：

ERROR: is/2: Type error: `[]' expected, found `[2,3]' (a list) ("x" must hold one character)

---

问题是如果t是一个列表，就不能添加t。如果T是一个列表，您可以使用成功的

is_list/1

轻松解决：

sum([],0).
sum([T|R],M) :- (is_list(T) -> sum(T,N1),sum(R,S), M is N1+S
                 ; sum(R,S), M is T+S ).

示例：

?- sum([1,[2,3],4],S).
S = 10.

?- sum([1,2,3,4],S).
S = 10.

?- sum([1,[2],[3],4],S).
S = 10.

?- sum([1,[[2],[3]],4],S).
S = 10.

更好的方法是使用CLPFD：

:- use_module(library(clpfd)).

sum([],0).
sum([[]],0).
sum([T|R],M) :- (is_list(T) -> sum(T,N1),sum(R,S), M #= N1+S
                 ; sum(R,S), M #= T+S ).

现在，您可以查询更一般的问题，如：

?- sum(L,N).
L = [],
N = 0 ;
L = [[]],
N = 0 ;
L = [N],
N in inf..sup ;
L = [N, []],
N in inf..sup ;
L = [_1836, _1842],
_1836+_1842#=N ;
L = [_1842, _1848, []],
_1842+_1848#=N ;
L = [_2142, _2148, _2154],
_2142+_2192#=N,
_2148+_2154#=_2192 ;
L = [_2148, _2154, _2160, []],
_2148+_2204#=N,
_2154+_2160#=_2204 ;
L = [_2448, _2454, _2460, _2466],
_2448+_2504#=N,
_2454+_2528#=_2504,
_2460+_2466#=_2528 ;

然后继续

另一种方法：

% Old code, with vars renamed:
%sum([], 0).
%sum([Num|Tail], TotalSum) :- sum(Tail, TailSum), TotalSum is Num + TailSum.

% New code:
sum([], 0).
sum([Elem|Tail], TotalSum) :- 
    sum(Elem, ElemSum),
    sum(Tail, TailSum),
    TotalSum is ElemSum + TailSum.
sum(Num, Num).

---

演示：。

您可以在Swi Prolog中使用flant/2+foldl/4或sum_list/2库谓词：

% flatten/2 + foldl/4 based implementation
sum_nested_list(List, Sum) :-
    flatten(List, Flat),
    foldl(plus, Flat, 0, Sum).

% flatten/2 + sum_list/2 based implementation
sum_nested_list(List, Sum) :-
    flatten(List, Flat),
    sum_list(Flat, Sum).

---

您上一个问题的答案不完整。例如，缺少

sum（[]]，0）

。