7 lines
306 B
Plaintext
7 lines
306 B
Plaintext
A1(X) :- movie("Dancing with Wolves",X,_).
|
|
A2(X) :- movie(X,"Steven Spielberg",_).
|
|
A3(X) :- screenplay(X,"Dancing with Wolves").
|
|
A4(X) :- A2(X), not screenplay("John Travolta", X).
|
|
A5(X) :- screenplay(X,"Lord of War"), screenplay(X,"National Treasure").
|
|
A6(X) :- movie(X,_,Y), screenplay(Z,X), actor(Z,Y).
|