Simplify day 5 part 1

2025-12-05 14:39:42 +00:00 · 2025-12-05 14:39:42 +00:00 · 1429445efe
commit 1429445efe
parent 7ba96ee3e5
1 changed files with 2 additions and 5 deletions
--- a/haskell/Puzzles/Day5.hs
+++ b/haskell/Puzzles/Day5.hs
@ -23,11 +23,8 @@ puzzle =
            [ \(ranges, vals) ->
                TL.show
                    . length
-                    . map fst
-                    . filter (notNull . snd)
-                    $ map
-                        (\v -> (v, mapMaybe (\r -> guard (isInRange v r) $> r) ranges))
-                        vals
+                    . filter (flip any ranges . isInRange)
+                    $ vals
            ]
        , extraTests = mempty
        }