From 29c672bdb57f07b68983d0afe6c0362c22203830 Mon Sep 17 00:00:00 2001 From: Slash Date: Sun, 9 Aug 2015 12:29:19 +0200 Subject: [PATCH] output fix --- src/Main0.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Main0.hs b/src/Main0.hs index e083c12..c03de38 100644 --- a/src/Main0.hs +++ b/src/Main0.hs @@ -44,7 +44,7 @@ packAll id seeds commandLists = zipWith (\x y -> JSONSer id x "lilik0" y) seeds scoredata :: Int -> [Int] -> [Int] -> String scoredata id seeds points = pretty where - pretty = foldl (\x (a,b,c) -> (show a) ++ " " ++ (show b) ++ (show c) ++ "\n" ++ x) "" zipdata + pretty = foldl (\x (a,b,c) -> (show a) ++ " " ++ (show b) ++ " " ++ (show c) ++ "\n" ++ x) "" zipdata zipdata = zip3 ids seeds points ids = replicate (length seeds) id