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.