Prolog: Wie überprüft man, ob ein Prädikat existiert?

Question

Wie kann ich überprüfen, ob ein Prädikat in einem Prolog-Programm existiert? Das wäre ein exists/1 sein, wie:

?- exists(some_predicate). 
false. 

?- assert(some_predicate). 
true. 

?- exists(some_predicate). 
true. 

Answer 1

Sie current_predicate/1 verwenden können, current_predicate/2 oder predicate_property/2 (für die letzten werden Sie wahrscheinlich brauchen 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/2 und predicate_property/2 (mit sichtbar) ist erfolgreich, wenn Das Prädikat kann autoloaded werden, während currrent_predicate/1

Answer 2

der 'altmodische Weg' fehlschlägt, aber in ISO akzeptiert wird, ist clause/2. Sie könnten es finden, während Sie einige der älteren Beispiele wiederverwenden/durchsuchen.

Beispiel:

?- [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).