12 lines
248 B
Haskell
12 lines
248 B
Haskell
import Data.List
|
|
import Data.List.Split
|
|
|
|
main :: IO ()
|
|
main = do
|
|
input <- readFile "input"
|
|
print $ day6 4 input
|
|
print $ day6 14 input
|
|
|
|
day6 :: Int -> String -> Int
|
|
day6 n = (+ n) . head . elemIndices n . map (length . nub . sort) . divvy n 1
|