template :D

.gitignore

@@ -1 +1,5 @@
 inputs/
+.session
+
+*.o
+*.hi

new.sh

@@ -0,0 +1,7 @@
+curl https://adventofcode.com/$1/day/$2/input --cookie session=$(cat .session) > inputs/$1-$2
+
+day=$(echo $1 | sed 's/..//')
+year=$(printf %02d $2)
+cp -n template.hs src/Day${day}${year}.hs
+
+alias run="ghc src/Day${day}${year}.hs -o out && cat inputs/$1-$2 | ./out && hyperfine --input inputs/$1-$2 -N --warmup 10 --runs 10 \"./out\" && rm out"

src/Day2501.hs

@@ -6,7 +6,6 @@ part1 = length . dropNonZero . scanl (+) 50 . convertToInts . lines
   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
@@ -16,7 +15,7 @@ part2 = length . dropNonZero . scanl (+) 50 . makeSingleSteps . convertToInts .
 
 main :: IO ()
 main = do
-  str <- readFile "inputs/2025-1"
+  str <- getContents
 
   print $ part1 str
   print $ part2 str

template.hs

@@ -0,0 +1,14 @@
+module Main where
+
+part1 :: String -> Int
+part1 = undefined
+
+part2 :: String -> Int
+part2 = undefined
+
+main :: IO ()
+main = do
+  str <- getContents
+
+  print $ part1 str
+  print $ part2 str