小编ali*_*frd的帖子

我需要写(不计算)数字列表的所有状态,这意味着:

输入:

Numbers: 1,2,3
Operators: +,-,/,*

输出:

1+2+3
1-2-3
1/2/3
1*2*3
1+2-3
1+2/3
1+2*3
1-2+3
1-2/3
1-2*3
1/2+3
1/2-3
1/2+3
1*2+3
1*2-3
1+2-3

在下降代码中显示 1+2+3

我怎样才能将它们发展到所有州？

list_sum([Item], Item).
list_sum([Item1,Item2 | Tail], Total) :-
   list_sum([Item1+Item2|Tail], Total).