From 147b15593038574dd502739a1c9d1ad607259e3f Mon Sep 17 00:00:00 2001
From: Karchnu <karchnu@karchnu.fr>
Date: Sat, 23 Jan 2016 13:13:49 +0100
Subject: [PATCH] =?UTF-8?q?219=20octets,=20difficile=20=C3=A0=20optimiser?=
 =?UTF-8?q?=20l=C3=A0=20\o/?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 haskell/columnv7.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/haskell/columnv7.hs b/haskell/columnv7.hs
index 728b891..f28c4f5 100644
--- a/haskell/columnv7.hs
+++ b/haskell/columnv7.hs
@@ -1,3 +1,3 @@
 import Data.List
-main = do 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
+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