projects
/
advent-of-code-22.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Tidying up
[advent-of-code-22.git]
/
advent25
/
Main.hs
diff --git
a/advent25/Main.hs
b/advent25/Main.hs
index 4e6cf876029e4dd73645a67d553b3688a8fadf58..28c33f751f4afc874e952d4b29371472782536f9 100644
(file)
--- a/
advent25/Main.hs
+++ b/
advent25/Main.hs
@@
-10,7
+10,6
@@
main =
numStrs <- readFile dataFileName
let fuels = fmap readSnafu $ lines numStrs
putStrLn $ showSnafu $ sum fuels
numStrs <- readFile dataFileName
let fuels = fmap readSnafu $ lines numStrs
putStrLn $ showSnafu $ sum fuels
- -- print $ part1 fuels
readSnafu :: String -> Int
readSnafu cs = foldl' go 0 cs
readSnafu :: String -> Int
readSnafu cs = foldl' go 0 cs
@@
-36,7
+35,7
@@
packSnafu :: [Int] -> String
packSnafu digits
| carry == 0 = shown
| otherwise = (snafuRep carry) : shown
packSnafu digits
| carry == 0 = shown
| otherwise = (snafuRep carry) : shown
- where (carry, shown) = foldl' packSnafuDigit (0, "")
digits
+ where (carry, shown) = foldl' packSnafuDigit (0, "")
packSnafuDigit :: (Int, String) -> Int -> (Int, String)
packSnafuDigit (carry, acc) d
packSnafuDigit :: (Int, String) -> Int -> (Int, String)
packSnafuDigit (carry, acc) d