master
karchnu 8 years ago
parent a92640a487
commit 4709700840

@ -12,7 +12,7 @@ completeMatrix m = map (\e -> e ++ [""| _ <- [length e..nb]]) m
where nb = maximum $ map length m
column :: [[String]] -> [[String]]
column x = L.transpose $ formatLines $ L.transpose $ completeMatrix x
column = (L.transpose . formatLines . L.transpose . completeMatrix)
main = do
content <- getContents

Loading…
Cancel
Save