day4/haskell: prettify

This commit is contained in:
Xiretza 2020-12-06 18:52:15 +01:00
parent 1ce33bb4af
commit 5fdccf79ab
Signed by: xiretza
GPG Key ID: 17B78226F7139993
1 changed files with 1 additions and 1 deletions

View File

@ -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))