day2: one more update

day2/part1.clj

@@ -16,10 +16,12 @@
             n (Integer/parseInt (second ins))
             ]
         (recur
-          (case (first ins)
+          (apply (partial update-in data)
-            "forward" (update-in data [:xpos] + n)
+            (case (first ins)
-            "up" (update-in data [:depth] - n)
+              "forward" [[:xpos] + n]
-            "down" (update-in data [:depth] + n)
+              "up" [[:depth] - n]
+              "down" [[:depth] + n]
+              )
             )
           )
         )