theon-1/PolyCubeCounting
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added newline to count.out file

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

BIN
haskell/.stack-work/dist/x86_64-linux/ghc-9.6.4/build/pcc-haskell-exe/pcc-haskell-exe vendored
View File

Binary file not shown.

BIN
haskell/.stack-work/dist/x86_64-linux/ghc-9.6.4/build/pcc-haskell-exe/pcc-haskell-exe-tmp/Main.hi vendored
View File

Binary file not shown.

BIN
haskell/.stack-work/dist/x86_64-linux/ghc-9.6.4/build/pcc-haskell-exe/pcc-haskell-exe-tmp/Main.o vendored
View File

Binary file not shown.

2
haskell/.stack-work/dist/x86_64-linux/ghc-9.6.4/stack-build-caches/75fd8e4951838cd19ff034f1d6b677ab2be4fb856638520103bae2e94ff9d516/exe-pcc-haskell-exe vendored
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:

3
haskell/app/Main.hs
View File

@@ -14,7 +14,8 @@ main = do
let polycubes = Map.singleton (getOffsets $ head $ orientations cube) (size cube, head $ orientations cube) let polycubes = Map.singleton (getOffsets $ head $ orientations cube) (size cube, head $ orientations cube)
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]

2
haskell/count.out
View File

@@ -1 +1 @@
[1,1,2,8,25] [1,1,2,8,25]