From: Neil Smith Date: Thu, 1 Dec 2016 14:46:26 +0000 (+0000) Subject: More point-free X-Git-Url: https://git.njae.me.uk/?a=commitdiff_plain;h=ca2526fec79c013e105f8be97485d3891a86df2e;p=advent-of-code-16.git More point-free --- diff --git a/advent01.hs b/advent01.hs index 27a6f21..6b3eefd 100644 --- a/advent01.hs +++ b/advent01.hs @@ -52,7 +52,8 @@ expandSteps = -- Execute a series of steps, keeping track of the positions after each step takeSteps :: Position -> [Step] -> [Position] -takeSteps pos steps = scanl move pos steps +-- takeSteps pos steps = scanl move pos steps +takeSteps = scanl move -- Make one move, by updating direction then position move :: Position -> Step -> Position