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

Format

Browse Source
This commit is contained in:
George Thomas 2025-12-30 12:03:38 +00:00
parent 2cd2341673
commit 5b24dc1238
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
haskell/Puzzles/Day4.hs
View File

@ -29,8 +29,11 @@ puzzle =
, withResource , withResource
(Seq.fromList . takeUntil noneAccessible . fmap snd . generateFrames . mkGrid <$> input) (Seq.fromList . takeUntil noneAccessible . fmap snd . generateFrames . mkGrid <$> input)
mempty mempty
\frames -> testGroup "frames" let nFrames = if isRealData then 58 else 9 in \frames ->
( [0 .. nFrames] <&> \n -> testGroup
"frames"
let nFrames = if isRealData then 58 else 9
in ( [0 .. nFrames] <&> \n ->
goldenVsStringDiff (show n) diffCommand (path <> "frames/" <> show n) $ goldenVsStringDiff (show n) diffCommand (path <> "frames/" <> show n) $
TL.encodeUtf8 . maybe "frame list too short!" drawGrid . Seq.lookup n <$> frames TL.encodeUtf8 . maybe "frame list too short!" drawGrid . Seq.lookup n <$> frames
) )