produce score file before json output

src/Main0.hs

@@ -32,8 +32,8 @@ main = do args <- getArgs
           commandspoints <- return (map (\(seed,game) -> strat0 game) gmseed)
           (commands,points) <- return $ unzip commandspoints
           seeds <- return ((map (\(seed, _) -> seed)) gmseed)
-          BS.putStrLn $ encode $ (packAll id seeds commands)
           writeFile ("scores")  (scoredata id (fst $ unzip gmseed) points)
+          BS.putStrLn $ encode $ (packAll id seeds commands)
           
 packAll :: Int -> [Int] -> [[Command]] -> [JSONSer] 
 packAll id seeds commandLists = zipWith (\x y -> JSONSer id x "lilik0" y) seeds commandStrings

src/Main1.hs

@@ -32,8 +32,8 @@ main = do args <- getArgs
           commandspoints <- return (map (\(seed,game) -> strat1 game) gmseed)
           (commands,points) <- return $ unzip commandspoints
           seeds <- return ((map (\(seed, _) -> seed)) gmseed)
-          BS.putStrLn $ encode $ (packAll id seeds commands)
           writeFile ("scores")  (scoredata id (fst $ unzip gmseed) points)
+          BS.putStrLn $ encode $ (packAll id seeds commands)
           
 
 packAll :: Int -> [Int] -> [[Command]] -> [JSONSer]