Lista 01 - Recursão

Alguns exercícios de recursão

-- Lista de Exercicio 01

vendas :: Int -> Int
vendas 1 = 20
vendas 2 = 32
vendas 3 = 21
vendas 4 = 60
vendas 5 = 25
vendas 6 = 12
vendas 7 = 52
vendas 8 = 28
vendas 9 = 29
vendas 10 = 40
vendas 11 = 50
vendas 12 = 33

-- Questao 01

desloca :: Int -> String -> String
desloca d palavra
        | d == 0 = palavra
        | d > 0 =  " " ++ desloca (d - 1) palavra

-- Questao 02

impAsterisco :: Int -> String
impAsterisco  qtd
        | qtd == 0 = ""
        | qtd > 0 = "*" ++ impAsterisco (qtd - 1)
       
-- Questao 03

centraliza:: String -> String
centraliza palavra = desloca (length (palavra)) palavra ++ desloca (length (palavra)) ""

-- Questao 04

tamanhoLinha :: Int
tamanhoLinha = 40

cabecalho :: String
titulo = "Relatorio de Venda de Microcomputadores"
cabecalho = impAsterisco tamanhoLinha ++ centraliza titulo ++ impAsterisco (tamanhoLinha +1) ++ "\n"

-- Questao 05

mes :: Int -> String
mes m
        | m == 00 = "Este mes nao existe."
        | m == 01 = "Janeiro"
        | m == 02 = "Fevereiro"
        | m == 03 = "Marco"
        | m == 04 = "Abril"
        | m == 05 = "Maio"
        | m == 06 = "Junho"
        | m == 07 = "Julho"
        | m == 08 = "Agosto"
        | m == 09 = "Setembro"
        | m == 10 = "Outubro"
        | m == 11 = "Novembro"
        | m == 12 = "Dezembro"
       
-- Questao 06

impBranco :: Int -> String
impBranco  qtd
        | qtd == 0 = ""
        | qtd > 0 = " " ++ impBranco (qtd - 1)
       
-- Questao 07

impMes :: Int -> String
impMes mesp = desloca 6 (mes mesp) ++ impBranco (tamanhoLinha - length(mes mesp)) ++ show (vendas mesp) ++ "\n"

-- Questao 08

impMeses :: Int -> String
impMeses 1 = impMes 1 ++ "\n"
impMeses messp = impMeses (messp - 1) ++ impMes messp ++  "\n"  

-- Questao 09

somaVendas :: Int -> Int
somaVendas 1 = vendas 1
somaVendas v = somaVendas (v - 1) +  vendas v

-- Questao 10

impSoma :: Int -> String
impSoma sv = impAsterisco tamanhoLinha ++ "\n" ++ desloca 6 ("Total de Vendas: ") ++ show (somaVendas sv) ++ "\n"

-- Questao 11

maiorVenda :: Int -> Int
maiorVenda 1 = vendas 1
maiorVenda maior = maiorVendaAux (vendas maior) (maiorVenda (maior - 1))

maiorVendaAux :: Int -> Int
maiorVenda v1 v2
        a >= b = a
        otherwise = b
       
Falta as útimas questões logo logo postarei aqui.