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
Block a user