This commit is contained in:
shu 2020-12-17 20:13:55 +01:00
parent f9ea5815ff
commit 4e87850e53
3 changed files with 2267 additions and 0 deletions

13
2020/day06/day06.hs Normal file
View File

@ -0,0 +1,13 @@
import Data.List
import Data.List.Split
main :: IO ()
main = do
input <- splitOn "\n\n" <$> readFile "input"
print $ day6 input
day6 :: [String] -> (Int,Int)
day6 i = (c a i, c b i)
where a = nub . filter (/= '\n')
b = foldr1 intersect . lines
c p = sum . map (length . p)

2239
2020/day06/input Normal file

File diff suppressed because it is too large Load Diff

15
2020/day06/testinput Normal file
View File

@ -0,0 +1,15 @@
abc
a
b
c
ab
ac
a
a
a
a
b