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

Data.List pour faire une transposée, plutôt que de la recoder :)

Browse Source
This commit is contained in:
karchnu 2016-01-04 14:01:50 +01:00
parent 7748cd19bf
commit c20d0b6e0b
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
haskell/column.hs
View File

@ -1,6 +1,4 @@
transpose:: [[a]] -> [[a]] import Data.List as L
transpose ([]:xs) = []
transpose x = (map head x) : transpose (map tail x)
addEmpty :: Int -> [a] -> [a] -> [a] addEmpty :: Int -> [a] -> [a] -> [a]
addEmpty x v y addEmpty x v y
@ -21,7 +19,7 @@ completeMatrix m = map (addEmpty nb [""]) m
where nb = maximum $ map length m where nb = maximum $ map length m
column :: [[String]] -> [[String]] column :: [[String]] -> [[String]]
column x = transpose $ formatLines $ transpose $ completeMatrix x column x = L.transpose $ formatLines $ L.transpose $ completeMatrix x
main = do main = do
content <- getContents content <- getContents