Enunciado em >> {- Atenção ao copy\paste uma vez que os tabs não estão atribuidos, e como se sabe o haskell é sensivel à Indentation...xD -} module Teste where import IO () --Tipos e classes necessarias para a resolução do teste type Filme = (Titulo,Realizador,[Actor],Genero,Ano) type Titulo = String type Realizador = String type Actor = String type Ano = Integer type Filmes = [Filme] data Genero = Comedia | Drama | Ficcao | Accao | Animacao | Documentario deriving (Eq,Show) data Avaliacao = NaoVi | Pontos Int deriving (Ord,Eq,Show,Read) type FilmesAval = [(Filme,[Avaliacao])] data Abin a = Vazia | Node Int (Abin a) (Abin a) deriving (Show,Eq,Ord) -- Dados para testar actores=["act1","act2","act3"] filme1=("Resolucao do Teste de PF","Miguel Correlo",actores,Documentario,2009) filme2=("Um","Desconhecido",actores,Comedia,2003) filme3=("Genero = Um Quanquer","Desconhecido",actores,Documentario,...