Uma mente erudita

Enunciado aqui module Exame where data Tree a = Empty | Node a (Tree a) (Tree a) type Extracto = [Movimento] type Movimento = (Descricao, Tipo, Data, Montante) type Descricao = String data Tipo = Credito | Debito deriving (Eq,Show) type Ano = Int type Mes = Int type Dia = Int data Data = D Ano Mes Dia deriving (Eq,Ord,Show) type Montante = Double -- valor positivo -- Dados para teste movimento1=("Compra", Debito, (D 1999 12 01), 123.0) movimento2=("EuroMilhoes", Credito, (D 2009 08 23), 155.5) movimento3=("EDP", Debito, (D 2009 01 26), 32.0) extracto = [movimento1,movimento2,movimento3] ------------------------------- --pg1 menoresMaiores :: Float -> Tree Float -> ([Float],[Float]) menoresMaiores n Empty = ([],[]) menoresMaiores n arv = let l = toList arv in ((filter (n>) l),(filter (n String -> Bool ePrefixo [] r = True ePrefixo l [] = True ePrefixo (x:xs) (y:ys) | (x==y)= True && e...

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,...

Telefonema ao apoio tmn Chamada Impossivel do INEM para Bombeiros Agora sim, o humor!!! Mais humor O emplastro Reporter um pouco irritado Ao som dos xutos e pontapés... Vê-se cada coisa... O maior "hacker" português, o video foi "hackeado" no youtube Cromos dos Idolos Eu tenho aqui um relogio bom... Entrevista do Ano