patrickaldis/garnet
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Simplify day 5 part 1

Browse Source
This commit is contained in:
George Thomas 2025-12-05 14:39:42 +00:00
parent 7ba96ee3e5
commit 1429445efe
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
haskell/Puzzles/Day5.hs
View File

@ -23,11 +23,8 @@ puzzle =
[ \(ranges, vals) -> [ \(ranges, vals) ->
TL.show TL.show
. length . length
. map fst . filter (flip any ranges . isInRange)
. filter (notNull . snd) $ vals
$ map
(\v -> (v, mapMaybe (\r -> guard (isInRange v r) $> r) ranges))
vals
] ]
, extraTests = mempty , extraTests = mempty
} }