Assuming the definitions for
fact
and
color
from the previous examples.
|(any '(?x is the factorial of 5) '(fact 5 ?x))
|
|(120 IS THE FACTORIAL OF 5)
|
|(findall '(?x is a color) '(color ?x))
|
|((RED IS A COLOR) (BLUE IS A COLOR)
(GREEN IS A COLOR))
|
|(findall '?y '(or (= ?y 5) (= ?y 5)))
|
|(5 5)
|
|(findallset '?y '(or (= ?y 5) (= ?y 5)))
|
|(5)
FINDALL
and
FINDALLSET
will hang if a goal expression generates an infinite solution set.
More powerful all solution predicates (
BAGOF
and
SETOF
) are available from within Common Prolog.
A different interface is available for predicates which will be called often from Lisp. The macro
deflogfun
may be used to generate normal Lisp functions that run with precompiled goals.