-
Notifications
You must be signed in to change notification settings - Fork 1
/
cine.pl
119 lines (92 loc) · 2.8 KB
/
cine.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
pelicula(elPadrino).
pelicula(juegoDeGemelas).
pelicula(pulpFiction).
pelicula(titanic).
pelicula(elHijoDeLaNovia).
pelicula(toyStory).
pelicula(inception).
pelicula(guardianesDeLaGalaxia).
pelicula(2012).
actor(leonardoDicrapio).
actor(samuelJackson).
actor(ricardoDarin).
actriz(lindsayLohan).
actriz(normaAleandro).
director(stevenSpielberg).
director(gasparNoe).
director(juanJoseCampanella).
director(quentinTarantino).
director(leonardoDicrapio).
viveDelCine(Persona) :- actor(Persona).
viveDelCine(Persona) :- director(Persona).
viveDelCine(Persona) :- actriz(Persona).
dirigio(quentinTarantino, pulpFiction).
dirigio(juanJoseCampanella, elHijoDeLaNovia).
dirigio(jamesCameron, titanic).
actuoEn(inception, leonardoDicrapio).
actuoEn(elHijoDeLaNovia, normaAleandro).
actuoEn(pulpFiction, samuelJackson).
actuoEn(titanic, leonardoDicrapio, 1997).
loDirigio(Director, Actor) :-
actuoEn(Pelicula, Actor),
dirigio(Director, Pelicula).
loDirigio(Director, Actor) :-
actuoEn(Pelicula, Actor, Anio),
dirigio(Director, Pelicula).
estreno(elPadrino, 1972).
estreno(juegoDeGemelas, 1999).
estreno(pulpFiction, 1994).
estreno(titanic, 1997).
estreno(elHijoDeLaNovia, 2001).
estreno(toyStory, 1995).
estreno(inception, 2010).
estreno(guardianesDeLaGalaxia, 2014).
estreno(2012, 2009).
tieneCarrera(Actor) :-
actuoEn(Pelicula, Actor),
esNueva(Pelicula).
tieneCarrera(Director) :-
dirigio(Director, Pelicula),
esNueva(Pelicula).
esNueva(Pelicula):-
estreno(Pelicula, Anio),
Anio > 2000.
hayQuimica(Actor, Actriz) :-
actor(Actor),
actriz(Actriz),
actuaronJuntos(Actor, Actriz, Pelicula),
actuaronJuntos(Actor, Actriz, OtraPelicula),
Pelicula \= OtraPelicula.
actuaronJuntos(Actor, Actriz, Pelicula) :-
actuoEn(Pelicula, Actor),
actuoEn(Pelicula, Actriz).
ganoPremio(elPadrino).
ganoPremio(pulpFiction).
ganoPremio(titanic).
ganoPremio(toyStory).
ganoPremio(inception).
genero(laMasacreDeTexas, terror(12)).
genero(scream, terror(6)).
genero(titanic, drama(10)).
genero(elHijoDeLaNovia, drama(300)).
genero(toyStory, infantil(animada, 81)).
genero(juegoDeGemelas, infantil(carneYHueso, 123)).
genero(inception, cienciaFiccion(0)).
%% terror(CantidadDeVictimas).
%% infantil(SiEsAnimadaONo, Duracion).
%% comedia(Subgenero, CantidadDeCliches).
%% drama(MLDeLagrimas).
%% cienciaFiccion(CantDeVecesQueUsanLaPalabraCuantico).
estaBuena(Pelicula) :-
genero(Pelicula, drama(MLDeLagrimas)),
MLDeLagrimas > 15.
estaBuena(Pelicula) :-
genero(Pelicula, infantil(carneYHueso, Duracion)),
Duracion > 80.
estaBuena(Pelicula) :-
genero(Pelicula, infantil(animada, Duracion)),
Duracion < 90.
estaBuena(Pelicula) :-
genero(Pelicula, terror(CantidadDeVictimas)),
CantidadDeVictimas > 10.
estaBuena(Pelicula) :- genero(Pelicula, cienciaFiccion(_)).