Wie man eine Liste der Zeichenketten mit 'unwords' in Haskell druckt?

Question

Ich möchte Liste der Zeichenfolgen wie unten gezeigt drucken.

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

Ich konnte dies mit dem folgenden erreichen.

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

Ist dies mit der eingebauten Funktion 'unwords' möglich? Ich konnte es mit 'unwords' drucken, konnte aber | nicht zwischen den Wörtern platzieren.

Answer 1

Ich sehe es gibt einen zusätzlichen Raum zwischen ‚|‘ und Wort, so können Sie diese Funktion verwenden:

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

kleine Erklärung:

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

dann, map diese Funktion Umwandlung in eine Liste von Wörtern gilt es für ["|1", "|USA", "|20", ... ]

dann unwords schließt sich ihnen an in eine Zeichenfolge mit Leerzeichen zwischen Wörtern. Die ++ "|" wird benötigt, um intersperse genannt |

Answer 2

Erstens würde ich es so schreiben:

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

Nun, eigentlich nicht, wie diese:

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

Na ja, vielleicht eher wie:

concatMap (printf "|%s\t") 

OK . Kann es also als 'unwords' gemacht werden?

-- | '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 

Nein, aber sehen, wenn Sie concatMap als foldr schreiben ...

Answer 3

Data.List hat eine Funktion endgültig hinzufügen. Vielleicht kannst du das benutzen.

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

Answer 4

Vielleicht ein wenig übertrieben, was Sie gefragt, aber:

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) 

Dann, zum Beispiel:

> 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 |