From c2f9e2d1935e4baa93e2885d2573bcb5bd0fc448 Mon Sep 17 00:00:00 2001 From: Gattix Date: Sat, 18 Dec 2021 20:29:51 +0100 Subject: [PATCH] day08: forgot some comments --- 2021/day08/day08.hs | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) diff --git a/2021/day08/day08.hs b/2021/day08/day08.hs index 381cc2c..5dcf5aa 100644 --- a/2021/day08/day08.hs +++ b/2021/day08/day08.hs @@ -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