From f2ae1ab5ac58fad27127cc6f57362cef7bf0ab90 Mon Sep 17 00:00:00 2001 From: Andrea Bellandi Date: Sat, 8 Aug 2015 20:30:32 +0200 Subject: [PATCH] modifica Main0.hs --- src/Main0.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Main0.hs b/src/Main0.hs index 52e1751..d885019 100644 --- a/src/Main0.hs +++ b/src/Main0.hs @@ -27,7 +27,7 @@ main = do args <- getArgs (commands,points) <- return $ unzip commandspoints seeds <- return ((map (\(seed, _) -> seed)) gmseed) putStrLn . encodeJSON $ (packAll id seeds commands) - writeFile (file ++ ".output") (scoredata id (fst $ unzip gmseed) points) + writeFile ("scores") (scoredata id (fst $ unzip gmseed) points) packAll :: Int -> [Int] -> [[Command]] -> [JSONSer]