Questão 32: unwords
Voltar
Apresente uma definição recursiva da função (pré-definida) unwords :: [String] -> String
que junta todas as strings da lista numa só, separando-as por um espaço.
Exemplo
> unwords ["Programacao", "Funcional"]
"Programacao Funcional"
Resolução
unwords :: [String] -> String
unwords [] = ""
unwords (h:t) = h ++ (if null t then "" else " ") ++ unwords t