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
[advent-of-code-22.git]
/
advent25
/
Main.hs
diff --git
a/advent25/Main.hs
b/advent25/Main.hs
index 28c33f751f4afc874e952d4b29371472782536f9..c58c47dc015da9bcd9e060d6eb1d885a2882c1db 100644
(file)
--- a/
advent25/Main.hs
+++ b/
advent25/Main.hs
@@
-35,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, "")
+ where (carry, shown) = foldl' packSnafuDigit (0, "")
digits
packSnafuDigit :: (Int, String) -> Int -> (Int, String)
packSnafuDigit (carry, acc) d
packSnafuDigit :: (Int, String) -> Int -> (Int, String)
packSnafuDigit (carry, acc) d