X-Git-Url: https://git.njae.me.uk/?a=blobdiff_plain;f=src%2Fadvent20%2Fadvent20.hs;fp=src%2Fadvent20%2Fadvent20.hs;h=4822db9ec324c983cee9017925a74533840d30cf;hb=1362ef699897009fbcfce9ce43a606c18224fdfd;hp=4d852a604d299fcf9ca7f762867c72dd4074bfc5;hpb=aef09db12a6b5e0260eda49c1bed3067c8f7c686;p=advent-of-code-17.git diff --git a/src/advent20/advent20.hs b/src/advent20/advent20.hs index 4d852a6..4822db9 100644 --- a/src/advent20/advent20.hs +++ b/src/advent20/advent20.hs @@ -109,12 +109,11 @@ integer = lexeme L.integer signedInteger = L.signed sc integer symbol = L.symbol sc -separator = symbol ", " comma = symbol "," particlesP = particleP `sepBy` space -particleP = particlify <$> (symbol "p=" *> vecP <* separator) - <*> (symbol "v=" *> vecP <* separator) +particleP = particlify <$> (symbol "p=" *> vecP <* comma) + <*> (symbol "v=" *> vecP <* comma) <*> (symbol "a=" *> vecP) where particlify p v a = Particle { position = p , velocity = v