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

Refactor to unify day 2 parts 1 and 2

Browse Source 
This doesn't noticeably affect the run time.
This commit is contained in:
George Thomas 2025-12-02 12:53:31 +00:00
parent fe3493aa86
commit c0504964e3
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
app/Main.hs
View File

@ -116,9 +116,14 @@ newtype ID = ID Int
deriving newtype (Eq, Ord, Show, Num, Enum) deriving newtype (Eq, Ord, Show, Num, Enum)
isRepetition2 :: ID -> Bool isRepetition2 :: ID -> Bool
isRepetition2 (T.show -> n) = uncurry (==) $ T.splitAt (T.length n `div` 2) n isRepetition2 (T.show -> n) = case T.length n `divMod` 2 of
(d, 0) -> equalChunks n d
_ -> False
isRepetitionN :: ID -> Bool isRepetitionN :: ID -> Bool
isRepetitionN (T.show -> n) = flip any [1 .. T.length n `div` 2] \i -> case T.chunksOf i n of isRepetitionN (T.show -> n) = flip any [1 .. T.length n `div` 2] $ equalChunks n
[] -> False
equalChunks :: Text -> Int -> Bool
equalChunks n i = case T.chunksOf i n of
[] -> True
x : xs -> all (== x) xs x : xs -> all (== x) xs