import Data.Char
soma x y z = x+y+z


-- RODRIGO HAERING

questao1 :: Int->Float --QUESTÃO 1
questao1 x = if x < 10 then fromIntegral(x) / 2 else fromIntegral(x)

questao2:: Int -> String -- QUESTÃO 2
questao2 x = if even x then "Par" else "Impar"

questao3 :: Float->Char
questao3 x
    | x >= 9 = 'A'
    | x >= 7.5 && x < 9 = 'B'
    | x >= 6 && x < 7.5 = 'C'
    | x >= 4 && x < 6 = 'D'
    | otherwise = 'E'

--questao4 :: [Int]->Int


questao5:: Int->String
questao5 x = if x >= 100 && x <= 200 then questao2 x else "Não está no intervalo"

questao6:: Float->Char->Float
questao6 x sex = if sex == 'M' then ((72.7 * x) - 58) else if sex == 'F' then ((72.7 * x) - 58) else 0

questao7 :: Int->String
questao7 x
    | x >= 18 = "Senior"
    | x >= 14 && x <= 17 = "Juvenil B"
    | x >= 11 && x <= 13 = "Juvenil A"
    | x >= 8 && x <= 10 = "Infantil B"
    | x >= 5 && x <= 7 = "Infantil A"
    | otherwise = "Não pertence a uma categoria"

questao8 :: Int->Int
questao8 x = if x > 0 then 1 else if x < 0 then (-1) else 0

questao9::Char->Int->Int->String
questao9 a x y = if a == '*' then show (x * y) else if a == '/' then show  (fromRational (toRational x / toRational y)) else "Erro"

questao10 ::Char-> String
questao10 x = if isLetter x then "Letra" else if isSymbol x || isPunctuation x then "Símbolo" else if isNumber x then "Número" else "O caracter não foi reconhecido pela função"