day08: forgot some comments
This commit is contained in:
parent
380dc0371b
commit
c2f9e2d193
|
@ -9,17 +9,15 @@ main = do
|
||||||
print $ length $ filter (`elem` [2,3,4,7]) $ map length (concat output)
|
print $ length $ filter (`elem` [2,3,4,7]) $ map length (concat output)
|
||||||
print $ day08 input
|
print $ day08 input
|
||||||
|
|
||||||
|
|
||||||
-- string auf int hashmap machen?
|
|
||||||
findDict :: [String] -> M.Map Char Char
|
findDict :: [String] -> M.Map Char Char
|
||||||
findDict wire = M.fromList $ zip (a++b++c++d++e++f++g) "abcdefg"
|
findDict wire = M.fromList $ zip (a++b++c++d++e++f++g) "abcdefg"
|
||||||
where a = intersect (getX 3) (without [2,4]) --done
|
where a = intersect (getX 3) (without [2,4])
|
||||||
b = intersect (charsWithLength 3 6) (charsWithLength 1 5) --done?
|
b = intersect (charsWithLength 3 6) (charsWithLength 1 5)
|
||||||
c = intersect (charsWithLength 2 6) (getX 2) --done?
|
c = intersect (charsWithLength 2 6) (getX 2)
|
||||||
d = intersect (charsWithLength 2 6) (charsWithLength 3 5) --done?
|
d = intersect (charsWithLength 2 6) (charsWithLength 3 5)
|
||||||
e = intersect (charsWithLength 1 5) $ intersect (getX 7) $ without [2..4] --done?
|
e = intersect (charsWithLength 1 5) $ intersect (getX 7) $ without [2..4]
|
||||||
f = getX 2 \\ c --done
|
f = getX 2 \\ c
|
||||||
g = without [2..4] \\ e --done?
|
g = without [2..4] \\ e
|
||||||
without x = "abcdefg" \\ (concat $ filter (flip elem x . length) wire)
|
without x = "abcdefg" \\ (concat $ filter (flip elem x . length) wire)
|
||||||
getXs x = filter (\y->length y == x) wire
|
getXs x = filter (\y->length y == x) wire
|
||||||
getX = head . getXs
|
getX = head . getXs
|
||||||
|
|
Loading…
Reference in New Issue
Block a user