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