Garmelon/advent-of-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[hs] Clean up 2019_01

Browse source
This commit is contained in:
Joscha 2020-11-02 22:43:53 +00:00
parent a7fa8d4f40
commit 277c4109b8
2 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
hs/.gitignore vendored
View file

@ -1,3 +1,6 @@
.stack-work/ .stack-work/
hs.cabal hs.cabal
*~ *~
# Input files
/tmp/

2
hs/src/Aoc/Y2019/A01.hs
View file

@ -10,7 +10,7 @@ iteratedFuel = sum . takeWhile (> 0) . tail . iterate fuel
solve201901 :: FilePath -> IO () solve201901 :: FilePath -> IO ()
solve201901 f = do solve201901 f = do
values <- (map read . lines) <$> readFile f values <- map read . lines <$> readFile f
putStr "Total fuel: " putStr "Total fuel: "
print $ sum $ map fuel values print $ sum $ map fuel values