如何在Prolog上更正谓词？

Question

我有以下序言代码：

predicates
like(string)
clauses
 like(apple).
like(girl).

q :- like(A),write(A).

goal q.

如何获得两个解决方案？

Answer 1

使用findall谓词http://cs.union.edu/~striegnk/learn-prolog-now/html/node96.html

domains
Z = symbol*

predicates
like(symbol)
q(symbol)

clauses
like(apple).
like(girl).
q(A) :- like(A).

goal findall(X,q(X),Z),write(Z).

或使用失败

domains
Z = symbol*

predicates
like(symbol)

clauses
like(apple).
like(girl).

goal like(X),write(X),nl,fail.