Pular para o conteúdo principal

Postagens

Exame 07/08 {Resolucao}

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

Teste 07/08 {Resolução }

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

Calamidades em Portugal

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

Portugal Anedótico

Acho que encontrei para onde queria ir! Águas frutadas lol A chamada conversa de bosta... Então vamos lá! É logo ali ao fundo das escadas... Não custa nada!!! lool Do putedo nah...Sr putedo faxabor!! Isto não é um extintor!!! É um abre latas!!! "Boate Azul, a partir de 5 cervejas, grátis uma mulher" Ora, mais um negócio de sucesso... ...de certeza que foi uma mulher que estacionou!!! Humm, não sei?! E esta!? "Vende.se bisiceletas en bão estado criansa e omen" Atenção esta língua já caiu em desuso... "Entre e messa a sua tensão arterial gratuitamente" - Meus Deus...

Triste olhar...

Trazias a tristeza no olhar nos olhos, espelho onde me vi parecia que se iam quebrar no olhar desse dia que senti Misturamos neles as cores pintamos filhos e mundos pareciam ledos os amores nos olhos assim profundos Foi pelos olhos que falamos quando a vida nos levou as palavras da boca como ramos De uma árvore que em nós secou e tudo quanto um dia amamos na tristeza dos olhos se findou

A vida, aparências… desilusões

Todos os dias deparamos com a força importuna da sociedade que dita uma imagem, uma forma de ser e de estar. Apartir daqui constrói-se uma forma de viver, adequada a essa ideologia, que acaba por nos influenciar. Insignificantes, neste mar salgado, apaziguado com lagrimas doces daqueles que procuram e não encontram a luz neste universo apagado, repleto de sombras… Nesta vida, de aparências, psedo-aparências, na maior parte dos casos, onde existem marionetas nas mãos duma sociedade que tem todas as suas linhas encruzilhadas, pois esta também é subjugada no poder do mundo fantástico da mentalidade consumista. Daqui surge a necessidade de sobressair, galvanizando o sumo de um fruto doce com a marca de um rotulo carimbado pela visão putrificada pelo meio aderente. No entanto, em toda regra há excepção, e como não deveria de deixar de ser, o que é raro é precioso. Como tal é nessas coisas que nos devemos concentrar. Para quê viver rodeado de diamantes se não temos a comida, a agua que nos s...

A vida, aparências… desilusões

Todos os dias deparamos com a força importuna da sociedade que dita uma imagem, uma forma de ser e de estar. Apartir daqui constrói-se uma forma de viver, adequada a essa ideologia, que acaba por nos influenciar. Insignificantes, neste mar salgado, apaziguado com lagrimas doces daqueles que procuram e não encontram a luz neste universo apagado, repleto de sombras… Nesta vida, de aparências, psedo-aparências, na maior parte dos casos, onde existem marionetas nas mãos duma sociedade que tem todas as suas linhas encruzilhadas, pois esta também é subjugada no poder do mundo fantástico da mentalidade consumista. Daqui surge a necessidade de sobressair, galvanizando o sumo de um fruto doce com a marca de um rotulo carimbado pela visão putrificada pelo meio aderente. No entanto, em toda regra há excepção, e como não deveria de deixar de ser, o que é raro é precioso. Como tal é nessas coisas que nos devemos concentrar. Para quê viver rodeado de diamantes se não temos a comida, a agua que nos s...