From 3e4f7aa8bebb5c07d558c3c4ce79a22bf4c46dd2 Mon Sep 17 00:00:00 2001 From: karchnu Date: Sat, 16 Jan 2016 01:24:46 +0100 Subject: [PATCH] =?UTF-8?q?l=C3=A9g=C3=A8rement=20simplifi=C3=A9?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- haskell/columnv3.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/haskell/columnv3.hs b/haskell/columnv3.hs index c56508d..cb548b2 100644 --- a/haskell/columnv3.hs +++ b/haskell/columnv3.hs @@ -10,4 +10,4 @@ completeMatrix m = map (\e -> e ++ [""| _ <- [length e..nb]]) m main = do content <- getContents - putStr $ unlines $ map unwords $ (L.transpose . (\x -> map formatLine x) . L.transpose . completeMatrix) $ map words $ lines content + putStr $ unlines $ map unwords $ L.transpose $ map formatLine $ L.transpose $ completeMatrix $ map words $ lines content