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

day08: forgot some comments

Browse Source
This commit is contained in:
Gattix 2021-12-18 20:29:51 +01:00
parent 380dc0371b
commit c2f9e2d193
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
2021/day08/day08.hs
View File

@ -9,17 +9,15 @@ main = do
print $ length $ filter (`elem` [2,3,4,7]) $ map length (concat output)
print $ day08 input
-- string auf int hashmap machen?
findDict :: [String] -> M.Map Char Char
findDict wire = M.fromList $ zip (a++b++c++d++e++f++g) "abcdefg"
where a = intersect (getX 3) (without [2,4]) --done
b = intersect (charsWithLength 3 6) (charsWithLength 1 5) --done?
c = intersect (charsWithLength 2 6) (getX 2) --done?
d = intersect (charsWithLength 2 6) (charsWithLength 3 5) --done?
e = intersect (charsWithLength 1 5) $ intersect (getX 7) $ without [2..4] --done?
f = getX 2 \\ c --done
g = without [2..4] \\ e --done?
where a = intersect (getX 3) (without [2,4])
b = intersect (charsWithLength 3 6) (charsWithLength 1 5)
c = intersect (charsWithLength 2 6) (getX 2)
d = intersect (charsWithLength 2 6) (charsWithLength 3 5)
e = intersect (charsWithLength 1 5) $ intersect (getX 7) $ without [2..4]
f = getX 2 \\ c
g = without [2..4] \\ e
without x = "abcdefg" \\ (concat $ filter (flip elem x . length) wire)
getXs x = filter (\y->length y == x) wire
getX = head . getXs