8 lines
296 B
Plaintext
8 lines
296 B
Plaintext
%— movie : {Title, Author, Year}
|
|
% — screenplay : {Actor, Movie}
|
|
%— actor : {Name, BirthYear}
|
|
|
|
A1(X) :- movie(X,Y,_), Y != "Steven Spielberg".
|
|
A2(X) :- movie(X,"Steven Spielberg",_), not screenplay("Tom Cruise",X).
|
|
A3(X) :- movie(M,"Steven Spielberg",_), actor(X,_), not screenplay(X,M).
|