17 lines
773 B
Haskell
17 lines
773 B
Haskell
fields = ["byr", "iyr", "eyr", "hgt", "hcl", "ecl", "pid"]
|
|
|
|
main = readFile "4" >>= putStrLn . show . parse 0 []
|
|
where
|
|
parse :: Integer -> [String] -> String -> Integer
|
|
parse i lst ('\n':xs) = parse (if all id $ map (\x -> x `elem` lst) fields then i + 1 else i) [] xs
|
|
parse i lst (' ':xs) = parse i lst xs
|
|
parse i lst [] = if all id $ map (\x -> x `elem` lst) fields then i + 1 else i
|
|
parse i lst xs = str i lst "" xs
|
|
str :: Integer -> [String] -> String -> String -> Integer
|
|
str i lst buf (':':xs) = eat i (buf:lst) xs
|
|
str i lst buf (x:xs) = str i lst (buf ++ [x]) xs
|
|
eat :: Integer -> [String] -> String -> Integer
|
|
eat i lst (' ':xs) = parse i lst xs
|
|
eat i lst ('\n':xs) = parse i lst xs
|
|
eat i lst (_:xs) = eat i lst xs
|