added newline to count.out file

This commit is contained in:
Maxime Vorwerk
2024-04-17 22:07:52 +02:00
parent a7898f859f
commit 3412f92a0b
6 changed files with 4 additions and 3 deletions

View File

@@ -9,7 +9,7 @@
/home/maxime/source/PolyCubeCounting/haskell/README.md: /home/maxime/source/PolyCubeCounting/haskell/README.md:
hash: 7977cc588f7e4331316835e35589dc4ac1b6579bb1ddb004793d0f7ab27f23fe hash: 7977cc588f7e4331316835e35589dc4ac1b6579bb1ddb004793d0f7ab27f23fe
/home/maxime/source/PolyCubeCounting/haskell/app/Main.hs: /home/maxime/source/PolyCubeCounting/haskell/app/Main.hs:
hash: 11f77f34c57f1636a153c573b6080502104de52eabec0a5726eb59648ca2489a hash: 23954124a055c4257d5b097220fc928a6dd03c6cb7346d29fa42714504a4a570
/home/maxime/source/PolyCubeCounting/haskell/package.yaml: /home/maxime/source/PolyCubeCounting/haskell/package.yaml:
hash: eab634f7eb24459df2c4898a07904dbd87c46dae3c8b758755745fac6fbfec48 hash: eab634f7eb24459df2c4898a07904dbd87c46dae3c8b758755745fac6fbfec48
/home/maxime/source/PolyCubeCounting/haskell/pcc-haskell.cabal: /home/maxime/source/PolyCubeCounting/haskell/pcc-haskell.cabal:

View File

@@ -15,6 +15,7 @@ main = do
let result = evaluateChildren maxSize cube polycubes let result = evaluateChildren maxSize cube polycubes
let counts = foldr (increment . fst) [] result let counts = foldr (increment . fst) [] result
writeFile "count.out" $ show counts writeFile "count.out" $ show counts
appendFile "count.out" "\n"
return () return ()
increment :: Int -> [Int] -> [Int] increment :: Int -> [Int] -> [Int]