如何通过 Prolog 将字符串连接到列表中的多个元素？

Question

我是 prolog 的新手，并且一直在研究与我认为 prolog 中的串联功能相关的问题。在阅读了适用于列表和字符串的谓词文档后，我的问题多于答案。

我试图实现的目标是通过将字符串分布到列表中的所有不同元素来创建一个产品。我使用了 append/2 和 maplist/2 以及其他一些谓词，但总是得到错误的响应。 我正在努力实现的示例：

?- cellprod("B",["C","D","E"],X).
X = ["BC", "BD", "BE"].

当前代码：

cellprod(A,[B|B1],C):- append(A,B),
                       cellprod(A,B1,C).

对于要分发的字符串到列表转换并以新形成的列表结束时，我应该查看哪些谓词？还是我缺少连接谓词？非常感谢！

Answer 1

也许你需要学习递归，所以这个答案可能完全没用......无论如何......我们可以通过这种方式轻松解决：

?- S="B",L=["C","D","E"],findall(T,(member(E,L),string_concat(S,E,T)),X).
S = "B",
L = ["C", "D", "E"],
X = ["BC", "BD", "BE"].

或者这个：

?- S="B",L=["C","D","E"],maplist(string_concat(S),L,X).
S = "B",
L = ["C", "D", "E"],
X = ["BC", "BD", "BE"].