Format

2025-12-02 11:15:49 +00:00 · 2025-12-02 11:15:49 +00:00 · bd4d350e76
commit bd4d350e76
parent 3601933bd0
1 changed files with 23 additions and 26 deletions
--- a/app/Main.hs
+++ b/app/Main.hs
@ -55,15 +55,13 @@ puzzle1 =
        { number = 1
        , parser = flip sepEndBy newline $ (,) <$> ((char 'L' $> L) <|> (char 'R' $> R)) <*> (Inc <$> Lex.decimal)
        , parts =
-            [
-                    T.show
+            [ T.show
                . sum
                . flip evalState 50
                . traverse \(d, i) -> state \p ->
                    let (_, p') = step i d p
                     in (Count if p' == 0 then 1 else 0, p')
-            ,
-                    T.show
+            , T.show
                . sum
                . flip evalState 50
                . traverse \(d, i) -> state \p ->
@ -102,8 +100,7 @@ puzzle2 =
        { number = 2
        , parser = (<* newline) $ flip sepBy (char ',') $ (,) <$> (Lex.decimal <* char '-') <*> Lex.decimal
        , parts =
-            [
-                    T.show
+            [ T.show
                . sum
                . concatMap
                    (mapMaybe (\n -> guard (isRepetition n) $> n) . uncurry enumFromTo)