Cleaning...

diff --git a/AdventOfCode2017/Day11.fs b/AdventOfCode2017/Day11.fs
index e2ccf32..400e0eb 100644 (file)
--- a/AdventOfCode2017/Day11.fs
+++ b/AdventOfCode2017/Day11.fs
@@ -8,7 +8,14 @@ let distanceInHex (moves : string) =
     let destination, furthest =
         moves.Split ',' |> Seq.fold (
             fun ((x, y), furthest) m ->
-                let pos = match m with "n" -> (x, y + 2) | "ne" -> (x + 1, y + 1) | "se" -> (x + 1, y - 1) | "s" -> (x, y - 2) | "sw" -> (x - 1, y - 1) | _ -> (x - 1, y + 1)
-                pos, distance pos |> max furthest
+                let next =
+                    match m with
+                    | "n"  -> (x    , y + 2)
+                    | "ne" -> (x + 1, y + 1)
+                    | "se" -> (x + 1, y - 1)
+                    | "s"  -> (x    , y - 2)
+                    | "sw" -> (x - 1, y - 1)
+                    | _    -> (x - 1, y + 1)
+                next, distance next |> max furthest
             ) ((0, 0), 0)
     distance destination, furthest
\ No newline at end of file