Day 6
This commit is contained in:
parent
f9ea5815ff
commit
4e87850e53
|
@ -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)
|
File diff suppressed because it is too large
Load Diff
|
@ -0,0 +1,15 @@
|
|||
abc
|
||||
|
||||
a
|
||||
b
|
||||
c
|
||||
|
||||
ab
|
||||
ac
|
||||
|
||||
a
|
||||
a
|
||||
a
|
||||
a
|
||||
|
||||
b
|
Loading…
Reference in New Issue