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

$ inutile avec interact

master
Karchnu 2016-01-23 14:11:47 +01:00
parent 147b155930
commit 63a602b979
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/columnv7.hs
View File

@ -1,3 +1,3 @@
import Data.List
main = interact $ (unlines . map unwords . transpose . map (pad ' ') . transpose . pad "" . map words . lines)
main = interact (unlines . map unwords . transpose . map (pad ' ') . transpose . pad "" . map words . lines)
where pad v m = map (\e -> e ++ replicate ((maximum $ map length m)- length e) v) m