From 1429445efef2be86f3dd92786a7723068ce766d7 Mon Sep 17 00:00:00 2001
From: George Thomas <georgefsthomas@gmail.com>
Date: Fri, 5 Dec 2025 14:39:42 +0000
Subject: [PATCH] Simplify day 5 part 1

---
 haskell/Puzzles/Day5.hs | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/haskell/Puzzles/Day5.hs b/haskell/Puzzles/Day5.hs
index 75d0f28..f102c20 100644
--- 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
         }