xiretza/aoc2020
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

day4/haskell: prettify

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
day4/day4.hs
View file

@ -94,4 +94,4 @@ hasAllRequiredFields = maybe False containsAllFields . fieldNames
containsAllFields fields = all (`elem` fields) requiredFieldNames containsAllFields fields = all (`elem` fields) requiredFieldNames
fieldNames = oneCompleteResult parseFieldNames 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))