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

21
haskell/Puzzles/Day4.hs
View File

@ -29,15 +29,18 @@ 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
goldenVsStringDiff (show n) diffCommand (path <> "frames/" <> show n) $ "frames"
TL.encodeUtf8 . maybe "frame list too short!" drawGrid . Seq.lookup n <$> frames let nFrames = if isRealData then 58 else 9
) in ( [0 .. nFrames] <&> \n ->
<> [ testCase "end" do goldenVsStringDiff (show n) diffCommand (path <> "frames/" <> show n) $
Just g <- Seq.lookup nFrames <$> frames TL.encodeUtf8 . maybe "frame list too short!" drawGrid . Seq.lookup n <$> frames
assertBool "accessible tile found" $ noneAccessible g )
] <> [ testCase "end" do
Just g <- Seq.lookup nFrames <$> frames
assertBool "accessible tile found" $ noneAccessible g
]
] ]
} }