trabalho_prolog

% generos
genero('ação').
genero('animação').
genero('aventura').
genero('comédia').
genero('crime').
genero('documentário').
genero('drama').
genero('fantasia').
genero('ficção_científica').
genero('guerra').
genero('horror').
genero('musical').
genero('mistério').
genero('romance').
genero('suspense').
genero('terror').
genero('western').

% filmes de ação
filme('velozes_e_furiosos_9', 'ação').
filme('shang-chi_e_a_lenda_dos_dez_anéis', 'ação').
filme('viúva_negra', 'ação').
filme('o_esquadrão_suicida', 'ação').
filme('godzilla_vs._kong', 'ação').
filme('resgate', 'ação').
filme('sem_remorso', 'ação').
filme('mundo_em_caos', 'ação').
filme('jolt', 'ação').
filme('the_tomorrow_war', 'ação').
filme('out_of_death', 'ação').
filme('a_guerra_do_amanhã', 'ação').
filme('army_of_the_dead', 'ação').
filme('f9', 'ação').
filme('wrath_of_man', 'ação').
filme('mortal_kombat', 'ação').

% filmes de animação
filme('luca', 'animação').
filme('raya_e_o_último_dragão', 'animação').
filme('vivo', 'animação').
filme('the_mitchells_vs._the_machines', 'animação').
filme('space_jam:_a_new_legacy', 'animação').
filme('soul', 'animação').
filme('o_poderoso_chefinho_2:_negócios_da_família', 'animação').
filme('bob_esponja:_o_incrível_resgate', 'animação').
filme('spirit:_o_indomável', 'animação').
filme('trollhunters:_a_ascensão_dos_titãs', 'animação').
filme('o_reino_gelado:_a_terra_dos_espelhos', 'animação').
filme('arcane', 'animação').
filme('flee', 'animação').
filme('maya_e_o_universo_da_estação_de_mel', 'animação').
filme('fortnite:_a_queda', 'animação').
filme('super_mario_bros._o_filme', 'animação').

% filmes de aventura
filme('jungle_cruise', 'aventura').
filme('tom_&_jerry', 'aventura').
filme('space_jam:a_new_legacy', 'aventura').
filme('um_lugar_silencioso-_parte_ii', 'aventura').
filme('free_guy:_assumindo_o_controle', 'aventura').
filme('black_widow', 'aventura').
filme('godzilla_vs._kong', 'aventura').
filme('os_croods_2:_uma_nova_era', 'aventura').
filme('o_homem_nas_trevas_2', 'aventura').
filme('the_tomorrow_war', 'aventura').
filme('honeydew', 'aventura').
filme('a_guerra_do_amanhã', 'aventura').=
filme('outside_the_wire', 'aventura').
filme('guardiões_da_galáxia_vol_3', 'aventura').

% filmes de comédia
filme('as_branquelas', 'comédia').
filme('corra_que_a_policia_vem_ai', 'comédia').
filme('de_volta_para_o_futuro', 'comédia').
filme('dois_filhos_de_frans', 'comédia').
filme('escola_de_rock', 'comédia').
filme('férias_frustradas', 'comédia').
filme('meu_malvado_favorito', 'comédia').
filme('o_efeito_borboleta', 'comédia').
filme('os_vingadores', 'comédia').
filme('sexta-feira_em_apuros', 'comédia').


% Regras
ver_genero(Filme, Genero) :-
    filme(Filme, Genero).

filmes_do_genero(Genero) :-
    genero(Genero),
    write('Filmes de '), write(Genero), write(':'), nl,
    findall(Filme, filme(Filme, Genero), Filmes),
    write_list(Filmes).

write_list([]).
write_list([X|Xs]) :-
    write(X), nl,
    write_list(Xs).