Comment imprimer une liste de chaînes en utilisant 'unwords' dans Haskell?

Question

Je veux imprimer la liste des chaînes comme montré ci-dessous.

|Name|Country|Age| 
------------------ 
|1 |USA |20 | 
|2 |UK  |19 | 

J'ai été capable d'atteindre ceci en utilisant ce qui suit. Est-il possible de réaliser ceci en utilisant la fonction intégrée 'unwords'. Je pouvais l'imprimer en utilisant 'unwords' mais je ne pouvais pas placer | entre les mots.

Answer 1

Je vois qu'il ya un espace supplémentaire entre « | » et le mot, vous pouvez utiliser cette fonction:

printfieldName x = unwords (map ((++) "|") x) ++ "|" 

petite explication:

(++) "|" - creates a function which take prefixes each word with "|", so 
(++) "|" "test" -> "|test" 

alors, map applique cette fonction à une liste de mots de conversion à ["|1", "|USA", "|20", ... ]

puis unwords les rejoint dans une chaîne avec des espaces entre les mots. Le ++ "|" est nécessaire pour ajouter final |

Answer 2

Tout d'abord, je voudrais écrire comme ceci:

printfieldName []  = [] 
printfieldName (x:xs) = "|" ++ x ++ "\t" ++ printfieldName xs 

Eh bien, en fait, non, comme ceci:

concatMap (\x -> '|' : x ++ "\t") 

Eh bien, peut-être plus comme:

concatMap (printf "|%s\t") 

OK . Alors peut-il être fait comme «unwords»?

-- | 'unwords' is an inverse operation to 'words'. 
-- It joins words with separating spaces. 
unwords     :: [String] -> String 
unwords []    = "" 
unwords ws    = foldr1 (\w s -> w ++ ' ':s) ws 

Non, mais si vous pouvez écrire concatMap comme foldr ...

Answer 3

Data.List a une fonction appelée intersperse. Peut-être que vous pouvez l'utiliser.

printfieldName xs = "|" ++ unwords (intersperse "|\t" xs) ++ "|" 

Answer 4

Peut-être un peu plus haut de ce que vous avez demandé, mais:

formatTable :: [String] -> [[String]] -> String 
formatTable header rows = 
    formatRow header ++ dashRow ++ concatMap formatRow rows 

    where formatRow cells = bracket '|' (spread cells) 
      dashRow   = bracket '+' (map (\n -> replicate n '-') widths) 
      bracket c cells = concatMap (c:) cells ++ (c:"\n") 

      spread cells = zipWith pad widths cells 
      pad n s   = take n (s ++ repeat ' ') 

      widths = foldr maxLengths (repeat 0) (header : rows) 
      maxLengths = zipWith (\c l -> max (length c) l) 

Ensuite, par exemple:

> let h = words "Name Country Age" 
> let rows = map words ["1 USA 20", "2 UK 19"] 
> h 
["Name","Country","Age"] 
> rows 
[["1","USA","20"],["2","UK","19"]] 
> putStr $ formatTable h rows 
|Name|Country|Age| 
+----+-------+---+ 
|1 |USA |20 | 
|2 |UK  |19 |