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/em/sp1.cpl

20 lines
279 B
Plaintext
Raw Normal View History

2011-10-22 15:33:04 +01:00
sameperson(X,Y):0.2:-
movie(M,X),
movie(M,Y).
sameperson(X,Y):0.2:-
actor(X),
actor(Y),
workedunder(X,Z),
workedunder(Y,Z).
sameperson(X,Y):0.2:-
gender(X,Z),
gender(Y,Z).
sameperson(X,Y):0.2:-
director(X),
director(Y),
genre(X,Z),
genre(Y,Z).