LAB_2 | Python Fiddle

/*Alexandr Horb, ТК-4
Subject area: My favourite film .

Relationship-facts: 
Фільм (назва, режисер, рік випуску). 
Актор (ПІБ, звання, рік народження, місце роботи). 
Знімався (назва фільму, ПІБ, роль, характеристика ролі). Під характеристикою ролі розуміється: головна, епізодична,…. 
*/

/*Structures*/

starred(
film('The Last Samurai','Edward Zwick',2003),
actor(' Tom Cruise','actor',1962,'Hollywood'),
'Nathan Olgren',
main).

starred(
film('The Book of Eli','Hughes brothers',2010),
actor('Denzel Washington','actor',1954,'Hollywood'),
'Eli',
main).

starred(
film('Black Hawk Down','Ridley Scott',2001,),
actor('Eric Bana','actor',1968,'Hollywood'),
'Norm Gibson',
secondary).

starred(
film('Ready Player One','Steven Spielberg',2018),
actor('Tye Sheridan','actor',1996,'Hollywood'),
'Parsifal',
main).

starred(
film('Saving Private Ryan','Steven Spielberg',1998),
actor('Tom Hanks','actor',1956,'Hollywood'),
'Captain John H. Miller',
main).

starred(
film('Forrest Gump','Robert Zemeckis',1986),
actor('Tom Hanks','actor',1956,'Hollywood'),
'Forrest Gump',
main).

starred(
film('The Wolf of Wall Street','Martin Scorsese',2013),
actor('Leonardo DiCaprio','actor',1974,'Hollywood'),
'Jordan Belfort',
main).

/*Відношення-правила*/

/*В яких фільмах знімався даний актор*/

/*Запит для будь-якого актора (назву вводити з командної стрічки).
Наприклад: req21('Leonardo DiCaprio',Y).*/
req21(X,Y):-starred(film(Y,_,_,_),actor(X,_,_,_),_,_).

/*В яких фільмах знімався Leonardo DiCaprio*/
req211(Y):-starred(film(Y,_,_,_),actor('Leonardo DiCaprio',_,_,_),_,_).

/*Вік акторів, зайнятих на зйомках даного фільму*/

/*Запит для будь-якого фільму
Наприклад: req22('Inception',X,Y).*/
req22(A,X,Y):-starred(film(A,_,_,_),actor(X,_,Z,_),_,_),Y is (2017-Z).

/*Вік акторів, зайнятих на зйомках фільму 'The Last Samurai'*/
req222(X,Y):-starred(film('The Last Samurai',_,_,_),actor(X,_,Z,_),_,_),Y is (2017-Z).

/*Xто з акторів зіграв у заданому фільмі вказану роль*/

/*Запит для будь-якого фільму та будь-якої ролі
Наприклад: req23('Forrest Gump','Saving Private Ryan',Y).*/
req23(X,Z,Y):-starred(film(X,_,_,_),actor(Y,_,_,_),Z,_).

/*Хто з акторів зіграв у 'The Last Samurai' роль 'Nathan Olgren'*/
req233(Y):-starred(film('The Last Samurai',_,_,_),actor(Y,_,_,_),'Nathan Olgren',_).

/*Хто режисер фільму, у якому певний актор зіграв задану роль*/

/*Запит для будь-якого актора та будь-якої ролі
Наприклад: req24('Leonardo DiCaprio','Jordan Belfort',Y).*/
req24(A,B,Y):-starred(film(_,Y,_,_),actor(A,_,_,_),B,_).

/*Режисер фільму, у якому Leonardo DiCaprio зіграв роль 'Jordan Belfort'*/
req244(Y):-starred(film(_,Y,_,_),actor('Leonardo DiCaprio',_,_,_),'Jordan Belfort',_).

/*Назви фільмів, у яких грає певний актор та які вийшли у заданому році*/

/*Запит для будь-якого актора та будь-якого року
Наприклад: req25('Tye Sheridan',1996,Y).*/
req25(A,B,Y):-starred(film(Y,_,B,_),actor(A,_,_,_),_,_).

/*Назви фільмів, у яких грає Tom Hanks та які вийшли у 1998 році*/
req255(Y):-starred(film(Y,_,1998,_),actor('Tom Hanks',_,_,_),_,_).

Python Fiddle

Python Cloud IDE