219 octets, difficile à optimiser là \o/
parent
df467a8133
commit
147b155930
|
@ -1,3 +1,3 @@
|
||||||
import Data.List
|
import Data.List
|
||||||
main = do 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
|
where pad v m = map (\e -> e ++ replicate ((maximum $ map length m)- length e) v) m
|
||||||
|
|
Loading…
Reference in New Issue