added newline to count.out file

2024-04-17 22:07:52 +02:00
parent a7898f859f
commit 3412f92a0b
6 changed files with 4 additions and 3 deletions
--- a/haskell/app/Main.hs
+++ b/haskell/app/Main.hs
@@ -14,7 +14,8 @@ main = do
    let polycubes = Map.singleton (getOffsets $ head $ orientations cube) (size cube, head $ orientations cube)
    let result = evaluateChildren maxSize cube polycubes
    let counts = foldr (increment . fst) [] result
-    writeFile "count.out" $ show counts
+    writeFile "count.out" $ show counts 
+    appendFile "count.out" "\n"
    return ()

 increment :: Int -> [Int] -> [Int]