From 3e4f7aa8bebb5c07d558c3c4ce79a22bf4c46dd2 Mon Sep 17 00:00:00 2001
From: karchnu <karchnu@karchnu.fr>
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