prolog - Prolog：如何检查谓词是否存在？

Question

如何检查 Prolog 程序中是否存在谓词？那将是一个exists/1，例如：

?- exists(some_predicate).
false.

?- assert(some_predicate).
true.

?- exists(some_predicate).
true.

Answer 1

你可以使用current_predicate/1、current_predicate/2或predicate_property/2（最后你可能需要functor/3）：

?- current_predicate(a/1).
false.

?- functor(A,a,1),predicate_property(A,visible).
false.

?- functor(A,a,1),current_predicate(_,A).
false.

?- assert(a(42)).
true.

?- current_predicate(a/1).
true.

?- functor(A,a,1),predicate_property(A,visible).
A = a(_G136).

?- functor(A,a,1),current_predicate(_,A).
A = a(_G122).

current_predicate/2predicate_property/2如果谓词可以在currrent_predicate/1失败时自动加载，并且 （可见）成功

Answer 2

'老式方式'，但在 ISO 中被接受，是第/2条。您可能会在重用/浏览一些较旧的示例时遇到它。

例子：

?- [user].
|: app([], Y, Y).
|: app([X|Xs], Y, [X|Zs]) :- app(Xs, Y, Zs).
|: % user://1 compiled 0,15 sec, 17 clauses
true.

?- clause(app(X,Y,Z),Body).
X = [],
Y = Z,
Body = true ;
X = [_G338|_G339],
Z = [_G338|_G342],
Body = app(_G339, Y, _G342).