Simplifier une fonction laide dans Haskell

Question

J'ai défini la fonction f1

f1 p = foldl (\x y -> x ++ y ++ "\t") "" (map (foldl (++) "") p) 

qui prendra

[["4","0","1"],["5","2","3"]] 

et le rendement

"401\t523\t" 

mais est fonction aussi laid que possible obtenir. Je suis sûr qu'il existe un moyen plus simple d'implémenter la même fonction. Quelqu'un peut-il me donner une idée à ce sujet?

Answer 1

La composition de la fonction est votre ami. Ainsi est intercalé, à partir de Data.List

f1 = intercalate "\t" . map concat 

Modifier: whoops, mal lu votre sortie. Vous voulez "\ t" à la fin de tous, pas seulement entre eux. Dans ce cas, il est plus proche de

f1 = concat . map ((++ "\t") . concat) 

Answer 2

Une suggestion pour l'approche pour résoudre quelque chose de semblable à cela à l'avenir (supplimenting solution réelle de Carl), ce que vous pouvez faire est de regarder comment un résoud bibliothèque Haskell le problème. Par exemple, Data.List.unwords fait quelque chose de similaire à ce que vous voulez.

Ainsi, vous pouvez essayer de regarder dans:

http://hackage.haskell.org/packages/archive/base/4.3.0.0/doc/html/Data-List.html

Trouver unwords dans ce document, vous remarquerez qu'il ya un lien "source". Cliquer ici vous amènera à la source de la façon dont la bibliothèque l'implémente. Habituellement, la fonction n'est pas très grande et peut vous donner quelques idées sur la façon de généraliser (ou de spécialiser) votre fonction de la bibliothèque.