modifica Main0.hs

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]