Questão 33: unlines

Voltar

Apresente uma definição recursiva da função (pré-definida) unlines :: [String] -> String que junta todas as strings da lista numa só, separando-as pelo caracter ’ ’.

Exemplo

> unlines ["Prog", "Func"]
"Prog\nFunc\n"

Resolução

Clica para revelar

unlines :: [String] -> String
unlines [] = ""
unlines (h:t) = h ++ "\n" ++ unlines t