This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/packages/cplint/rib/sp1npn.l
Fabrizio Riguzzi be449b3aef updated cplint
2011-10-22 16:33:04 +02:00

31 lines
456 B
Common Lisp

output(sameperson/2).
input(gender/2).
input(genre/2).
input(actor/1).
input(director/1).
input(movie/2).
input(workedunder/2).
modeb(1,sameperson(-person, -person)).
modeb(1,workedunder(+person,-person)).
modeb(1,movie(-movie,+person)).
modeb(1,gender(+person,-gender)).
modeb(1,genre(+person,-genre)).
modeb(1,actor(+person)).
modeb(1,director(+person)).
:- set(maximal_step,0.1).
:- set(minimal_step,0.005).