init + day 1

.gitignore

@@ -0,0 +1 @@
+inputs/

src/Day2501.hs

@@ -0,0 +1,22 @@
+module Main where
+
+part1 :: String -> Int
+part1 = length . dropNonZero . scanl (+) 50 . convertToInts . lines
+  where
+  convertToInts = map (\it -> (if head it == 'L' then -1 else 1) * read (drop 1 it))
+  dropNonZero = filter ((0==) . (`mod` 100))
+
+
+part2 :: String -> Int
+part2 = length . dropNonZero . scanl (+) 50 . makeSingleSteps . convertToInts . lines
+  where
+  convertToInts = map (\it -> (if head it == 'L' then -1 else 1) * read (drop 1 it))
+  dropNonZero = filter ((0==) . (`mod` 100))
+  makeSingleSteps = concatMap (\it -> replicate (abs it) (signum it))
+
+main :: IO ()
+main = do
+  str <- readFile "inputs/2025-1"
+
+  print $ part1 str
+  print $ part2 str