14 lines
303 B
Haskell
14 lines
303 B
Haskell
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)
|