mpo/adventofcode-2020
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Finished day 6

Browse source
This commit is contained in:
Martin Potier 2020-12-07 20:32:40 +02:00
parent b344686716
commit 97f5bd536f
1 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
day6/main.hs
View file

@ -43,11 +43,13 @@ paragraphs strs = go (strs, [])
solvePart1 :: [String] -> Int solvePart1 :: [String] -> Int
solvePart1 = sum . (map countUniqueAnswers) . paragraphs solvePart1 = sum . (map countUniqueAnswers) . paragraphs
allAnsweredX :: Char -> [[String]] -> Bool allAnsweredX :: Char -> [[String]] -> [Bool]
allAnsweredX c = all (any (== c)) allAnsweredX c = map (all (any (== c)))
solvePart2 :: [String] -> [Bool]
solvePart2 = allAnsweredX 'a' . paragraphs
solvePart2 :: [String] -> Int
solvePart2 strs = length . (filter (== True)) $ concat $ map (\x -> (allAnsweredX x . paragraphs) strs) ['a'..'z']
main :: IO () main :: IO ()
main = do main = do
@ -63,7 +65,8 @@ main = do
input <- lines <$> readFile "day6/input" input <- lines <$> readFile "day6/input"
print $ solvePart1 input print $ solvePart1 input
putStrLn "Day 6 - Part 2 : solving test" putStrLn "Day 6 - Part 2 : solving test"
print $ paragraphs exampleData
print $ solvePart2 exampleData print $ solvePart2 exampleData
-- putStrLn "Day 6 - Part 2 : solving input" putStrLn "Day 6 - Part 2 : solving input"
-- print $ solvePart2 input print $ solvePart2 input