1
0
Fork 0
advent-of-code/2020/06/part2.hs
Zach Perrault 280592563c
solve: day 6
- solve: day 6, part 1
 - solve: day 6, part 2
2020-12-06 12:05:31 -05:00

18 lines
359 B
Haskell
Executable file

#!/usr/bin/env runghc
import Day6
import Data.Set (fromList, size)
main = interact (show . solve . parse)
solve = sum . map countEveryoneYes
parse = lines'
countEveryoneYes :: [String] -> Int
countEveryoneYes group =
length $ filter everyoneYes questions
where
n = length group
questions = ['a'..'z']
everyoneYes q = all (elem q) group