Prolog中maplist结果合并为单列表而非子列表的问题

这个需求很常见，你当前用maplist得到的是每个元素处理后的子列表集合，要把它们合并成一个单一的扁平列表，有几种实用的方案：

方案1：用append/2扁平化子列表集合 #

最简单的方式是先通过maplist生成所有子列表，再用append/2把它们拼接起来。修改你的pred谓词如下：

pred(Info, List, Result) :-
    maplist(pred_calculate(Info), List, SubLists),
    append(SubLists, Result).

append/2的作用就是接收一个由列表组成的列表，将所有子列表的元素按顺序合并成一个新的扁平列表，完美匹配你的需求。比如你例子中的[[2,3,5],[5,7,8],[8,9,11]]，经过append后就会变成[2,3,5,5,7,8,8,9,11]。

方案2：用flatmap一步到位（适用于SWI-Prolog等支持的环境） #

如果你的Prolog环境支持flatmap（比如SWI-Prolog），可以直接用它替代maplist，flatmap本质就是先执行map操作，再自动扁平化结果：

pred(Info, List, Result) :-
    flatmap(pred_calculate(Info), List, Result).

这个写法更简洁，省去了手动调用append的步骤，效果和方案1完全一致。

方案3：手动递归实现（不依赖内置谓词） #

如果你想自己实现这个逻辑，不依赖append或flatmap，可以写一个递归版本的谓词：

pred(_, [], []).
pred(Info, [H|T], Result) :-
    pred_calculate(Info, H, SubResult),
    pred(Info, T, RestResult),
    append(SubResult, RestResult, Result).

这个版本会逐个处理输入列表的元素，把当前元素的处理结果和剩余元素的最终结果拼接起来，递归完成整个扁平化合并的过程。

内容的提问来源于stack exchange，提问作者spacing