Clojure solution to Advent of Code 2016 day 1
I saw someone on Twitter solving old Advent of Code challenges with Clojure and I got inspired to try it myself. So here's my solution to Advent of Code 2016 day 1 using Clojure.
The code is on GitLab but I'll include the main function here:
(defn start [document] (loop [distq [0 0] facing 0 orders (parse-doc document)] (if (empty? orders) (apply + (map #(Math/abs %) distq)) (let [[RL nblocks] (first orders) delta (* nblocks ([1 1 -1 -1] facing) RL)] (recur [(last distq) (+ (first distq) delta)] (mod (+ RL facing) 4) (rest orders))))))
I was able to find a few shortcuts which reduced the amount of code I had to write.
First, I chose to represent "right" as the number 1 and "left" as the number -1. This makes it easy to move and change direction, as we'll see.
The compass rose directions are represented with increasing numbers "clock-wise". North is 0, east is 1, south is 2, and west is 3. To change direction after a move I add either 1 or -1 depending on if we went right (1) or left (-1), and finally take the modulus 4 of the result to get back into range [0 3].
A key point is that for each iteration through the loop, the current position only moves along either the X- or the Y-axis. We start facing north and then turn either right or left, thus only affecting our position on the X axis. If we turned right, we start the next loop facing east and can only move on the Y-axis.
Because we alternate between X and Y this way, each iteration need
only be concerned with our position on that axis. This is where the
distq comes into play. Its first element is our position on
the current axis. That's why in the call to
recur their positions are
delta. The variable delta represents how much the
position on the current axis will change due to our move. If the move
is "R5" then
nblocks will be 5. If we are facing north (0) or east (1)
and go right, then the axis value will increase, represented by 1. If
we are facing south (2) or west (3), then the axis value will decrease
if we go right, represented by -1. Finally we multiply by
RL, which is
1 if we went right, and -1 if we went left.