From ca2526fec79c013e105f8be97485d3891a86df2e Mon Sep 17 00:00:00 2001 From: Neil Smith Date: Thu, 1 Dec 2016 14:46:26 +0000 Subject: [PATCH] More point-free --- advent01.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- 2.34.1