如何在SWI PROLOG的一行中显示所有结果？

Question

我在* .pl文件中有一个小数据库，其中包含3个事实的各种实例：

male(NAME)
female(NAME)
parents(CHILD_NAME, MOTHER_NAME, FATHER_NAME) 

和一个问题：

brother(A, B) :- male(A), parents(A ,X, Y), parents(B, X, Y), X\==Y. 

它告诉X什么时候是Y.我的问题是：这里有什么方法可以在运行问题的同时在一行中显示所有答案而不会点击';'对于每个新实例？

Answer 1

我想我会写一次像

这样的实用程序

writeall(Q) :- forall(Q,writeln(Q)).

在SWI-prolog中，有一个方便的地方可以存储像这样的实用程序片段。在IDE中，单击菜单

Edit\Prolog preferences

并将片段保存在那里。它存储在Linux，MacOS上的〜/ .swiplrc中，或存储在Windows下的等效配置文件中。