day4/haskell: prettify
This commit is contained in:
parent
f717860fe3
commit
52465a9380
1 changed files with 1 additions and 1 deletions
|
@ -94,4 +94,4 @@ hasAllRequiredFields = maybe False containsAllFields . fieldNames
|
|||
containsAllFields fields = all (`elem` fields) requiredFieldNames
|
||||
fieldNames = oneCompleteResult parseFieldNames
|
||||
|
||||
main = runAoC (filter hasAllRequiredFields . map (intercalate " ") . splitOnEmptyLines) (length) (length . mapMaybe (oneCompleteResult parsePassport))
|
||||
main = runAoC (filter hasAllRequiredFields . map unwords . splitOnEmptyLines) length (length . mapMaybe (oneCompleteResult parsePassport))
|
||||
|
|
Loading…
Reference in a new issue