Gattix/AoC
3
0
Fork 0
Code Issues 1 Pull Requests Releases Wiki Activity

day4: dont reimplement infixOf lol

Browse Source
This commit is contained in:
Gattix 2022-12-04 15:42:36 +01:00
parent dbbf23bcd1
commit c6f6bd0af2
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
2022/day04/day04.hs
View File

@ -10,12 +10,8 @@ main = do
parse :: String -> [[[Int]]]
parse = map (map ((\[x,y]->[read x .. read y]) . splitOn "-") . splitOn ",") . lines
testEnclave :: [[Int]] -> Bool
testEnclave (x:y:[]) = a == x || a == y
where a = x `intersect` y
day4a :: [[[Int]]] -> Int
day4a = sum . map (fromEnum . testEnclave)
day4a = sum . map (fromEnum . (\[x,y] -> x `isInfixOf` y) . sortOn length)
day4b :: [[[Int]]] -> Int
day4b = sum . map (fromEnum . not . null . foldl1 intersect)