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
-      -- print $ part1 fuels
 
 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
-  where (carry, shown) = foldl' packSnafuDigit (0, "") digits
+  where (carry, shown) = foldl' packSnafuDigit (0, "")
 
 packSnafuDigit :: (Int, String) -> Int -> (Int, String)
 packSnafuDigit (carry, acc) d