Aula2. com todo o conteúdo mostrado no video 2 ensinando Haskell

Aula2.hs

module Aula2 where

data Dia = Segunda | Terca | Quarta | Quinta | Sexta | Sabado | Domingo

-- :t Segunda

diaDoQue :: Dia -> String
diaDoQue Sabado = "Festa :D"
diaDoQue Domingo = "Ressaca :("
diaDoQue _ = "Trabalho!"

fib :: Int -> Int
fib 0 = 0
fib 1 = 1
fib n = fib (n - 1) + fib (n - 2)

-- campos com construtores

data Pessoa = Fisica String Int | Juridica String

nomeIdade :: Pessoa -> (String, String)
nomeIdade (Fisica x y) = ("Nome: " ++ x, "Idade: " ++ show y)
nomeIdade (Juridica x) = ("Nome: " ++ x, "Nao ha idade")

data Tipo = Fogo | Planta | Agua deriving Show

-- data Pokemon = Pokemon String Tipo Int

data Pokemon = 
    Pokemon {
        nome :: String,
        tipo :: Tipo,
        nivel:: Int
    } deriving Show

levelUp :: Pokemon -> Pokemon
levelUp (Pokemon x y z) = (Pokemon x y (z+1))