Jogos e Desenhos - Prolog
Base de Conhecimento:
jogo(cs).
jogo(minecraft).
jogo(lol).
jogo(valorant).
jogo(gta).
jogo(thedivision).
jogo(starcraft).
jogo(quake).
jogo(nfs).
jogo(horizonzerodawn).
jogo(burnout).
genero(cs,fps).
genero(minecraft,survivor).
genero(lol,moba).
genero(valorant,fps).
genero(gta,acao).
genero(thedivision,acao).
genero(starcraft,mmo).
genero(quake,fps).
genero(nfs,corrida).
genero(burnout,corrida).
genero(horizonzerodawn,acao).
desenho(rickandmorty).
desenho(jojo).
desenho(midnightgospel).
desenho(horadeaventura).
desenho(drstone).
desenho(dragonball).
desenho(superherogirls).
desenho(desencanto).
desenho(lovedeathrobots).
desenho(bojack).
desenho(ben10).
desenho(gumball).
desenho(johnnybravo).
canal(rickandmorty, netflix).
canal(jojo, crunchyroll).
canal(drstone,crunchyroll).
canal(superherogirls,netflix).
canal(desencanto,netflix).
canal(dragonball,crunchyroll).
canal(midnightgospel,netflix).
canal(horadeaventura,netflix).
canal(lovedeathrobots,netflix).
canal(bojack,netflix).
canal(ben10,sky).
canal(gumball,sky).
canal(johnnybravo,sky).
preco(minecraft,169).
preco(gta,70).
preco(thedivision,90).
preco(burnout,71).
preco(quake,18).
preco(nfs,150).
preco(netflix,32).
preco(crunchyroll,35).
preco(sky,110).
preco(horizonzerodawn,54).
lancamento(cs,2000).
lancamento(minecraft,2009).
lancamento(lol,2009).
lancamento(valorant,2020).
lancamento(gta,2013).
lancamento(thedivision,2016).
lancamento(starcraft,1998).
lancamento(quake,1996).
lancamento(rickandmorty,2013).
lancamento(superherogirls,2019).
lancamento(desencanto,2018).
lancamento(jojo,1987).
lancamento(midnightgospel,2020).
lancamento(horadeaventura,2010).
lancamento(drstone,2017).
lancamento(dragonball,1989).
lancamento(burnout,2001).
lancamento(lovedeathrobots,2019).
lancamento(bojack,2014).
lancamento(ben10,2005).
lancamento(gumball,2008).
lancamento(johnnybravo,1995).
lancamento(nfs,2004).
lancamento(horizonzerodawn,2017).
principal(cs,homem).
principal(minecraft,varios).
principal(lol,varios).
principal(valorant,varios).
principal(gta,homem).
principal(thedivision,varios).
principal(starcraft,varios).
principal(desencanto,mulher).
principal(quake,homem).
principal(rickandmorty,homem).
principal(superherogirls,mulher).
principal(jojo,homem).
principal(midnightgospel,homem).
principal(horadeaventura,homem).
principal(drstone,homem).
principal(dragonball,homem).
principal(lovedeathrobots,varios).
principal(bojack,animal).
principal(ben10,homem).
principal(gumball,animal).
principal(johnnybravo,homem).
principal(nfs,homem).
principal(horizonzerodawn,mulher).
principal(burnout,varios).
06) Quais são os desenhos que passam na sky?
?- desenho(X),canal(X,sky).
X = ben10 ;
X = gumball ;
X = johnnybravo ;
false.
07) Quais são os jogos que possuem uma mulher como personagem principal?
?- jogo(X),principal(X,mulher).
X = horizonzerodawn ;
false.
08) Quais são os desenhos que possuem mulher ou vários como personagem principal?
?- desenho(X),(principal(X,mulher); principal(X,varios)).
X = superherogirls ;
X = desencanto ;
X = lovedeathrobots ;
09) Quais são os jogos que não são grátis que possuem a mulher como atriz principal?
?- jogo(X),preco(X,_),principal(X,mulher).
X = horizonzerodawn ;
false.
10) Quais são os desenhos que possuem animal como ator principal?
?- desenho(X),principal(X,animal).
X = bojack ;
X = gumball ;
false.
11) Quais são os jogos lançados antes de 2000 e depois de 1980?
?- jogo(X),lancamento(X,Y),Y>1980,Y<2000.
X = starcraft,
Y = 1998 ;
X = quake,
Y = 1996 ;
false.
12) Quais são os jogos lançados antes de 2000 e depois de 1980 com o ator principal vários?
?- jogo(X),lancamento(X,Y),principal(X,varios),Y>1980,Y<2000.
X = starcraft,
Y = 1998 ;
false.
13) Liste os desenhos da netflix lançados depois de 2018;
?- desenho(X),canal(X,netflix),lancamento(X,Y),Y>2018.
X = midnightgospel,
Y = 2020 ;
X = superherogirls,
Y = 2019 ;
X = lovedeathrobots,
Y = 2019 ;
false.
14) Que desenhos possuem a mulher como atriz principal e do canal netflix?
?- desenho(X),principal(X,mulher),canal(X,netflix).
X = superherogirls ;
X = desencanto ;
false.
15) Qual é o desenho ou jogo lançado em 2013?
?- (desenho(X);jogo(X)),lancamento(X,Y),Y=2013.
X = rickandmorty,
Y = 2013 ;
X = gta,
Y = 2013 ;
false.
16) Quais são os jogos de corrida ou ação onde a mulher é atriz principal?
?- jogo(X),(genero(X,corrida);genero(X,acao)),principal(X,mulher).
X = horizonzerodawn ;
false.
17) Use a regra naovarios para retornar os jogos ou desenhos onde o ator principal é animal;
?- naovarios(X,Y),principal(X,animal).
X = bojack,
Y = animal ;
X = gumball,
Y = animal ;
false.
18) Quais são os jogos ou desenhos lançados até 2000?
?- (jogo(X);desenho(X)),lancamento(X,Y),Y=<2000.
X = cs,
Y = 2000 ;
X = starcraft,
Y = 1998 ;
X = quake,
Y = 1996 ;
X = streetfight,
Y = 1978 ;
X = jojo,
Y = 1987 ;
X = dragonball,
Y = 1989 ;
X = johnnybravo,
Y = 1995 ;
X = billyandmandy,
Y = 1995.
19) Quais são os jogos lançados até 2000 e gratuitos?
?- jogo(X),lancamento(X,Y), Y=<2000,not(preco(X,_)).
X = cs,
Y = 2000 ;
X = starcraft,
Y = 1998 ;
false.
20) Quais são os jogos lançados a partir de 2000 que custam de 100 a 200 reais?
?- jogo(X),lancamento(X,Y),Y>=2000,preco(X,Z), Z>=100,Z=<200.
X = minecraft,
Y = 2009,
Z = 169 ;
X = nfs,
Y = 2004,
Z = 150 ;
false.
21) Quais são os jogos lançados a partir de 2000 que possuem homens como ator principal?
?- jogo(X),lancamento(X,Y),Y>=2000,principal(X,homem).
X = cs,
Y = 2000 ;
X = gta,
Y = 2013 ;
X = nfs,
Y = 2004 ;
false.
22) Quais são os desenhos que não são da sky?
?- desenho(X),not(canal(X,sky)).
X = rickandmorty ;
X = jojo ;
X = midnightgospel ;
X = horadeaventura ;
X = drstone ;
X = dragonball ;
X = superherogirls ;
X = desencanto ;
X = lovedeathrobots ;
X = bojack ;
X = billyandmandy.
23) Quais são os desenhos que não são da sky lançado depois de 2015?
?- desenho(X),not(canal(X,sky)),lancamento(X,Y),Y>2015.
X = midnightgospel,
Y = 2020 ;
X = drstone,
Y = 2017 ;
X = superherogirls,
Y = 2019 ;
X = desencanto,
Y = 2018 ;
X = lovedeathrobots,
Y = 2019 ;
false.
24) Quais são os desenhos que não são da sky lançado depois de 2015 protagonizados por mulheres?
?- desenho(X),not(canal(X,sky)),lancamento(X,Y),Y>2015,principal(X,mulher).
X = superherogirls,
Y = 2019 ;
X = desencanto,
Y = 2018 ;
false.