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

Franchement, 7 lignes c'est pour les faibles

master
karchnu 2016-01-18 18:18:46 +01:00
parent 06beadfdc9
commit db7d66ac25
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
haskell/columnv6.hs Normal file
View File

@ -0,0 +1,5 @@
import Data.List as L
main = do content <- getContents
putStr $ unlines $ map unwords $ L.transpose $ map (completeMatrix ' ') $ L.transpose $ (completeMatrix "") $ map words $ (lines content)
where completeMatrix v m = map (\e -> e ++ [v| _ <- [length e .. (\ x -> maximum $ map length x) m ]]) m