karchnu/some-usable-scripts
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

dot syntax

Browse Source
This commit is contained in:
karchnu 2016-01-08 04:36:57 +01:00
parent a92640a487
commit 4709700840
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
haskell/columnv2.hs
View File

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