day7: learn as->

day7/part2.clj

@@ -1,22 +1,19 @@
 (defn calc-fuel [lst pos]
-  (->> lst
+  (reduce #(as-> %2 $
-       (map
+             (- pos $)
-         (comp
+             (Math/abs $)
-           #(/ (* % (inc %)) 2)
+             (/ (* $ (inc $)) 2)
-           #(Math/abs %)
+             (+ %1 $)
-           (partial - pos)
              )
-         )
+          0 lst
-       (apply +)
           )
   )
 
-(let [input (->> (slurp "./in") ;"16,1,2,0,4,2,7,1,2,14"
+(let [input (as-> (slurp "./in") $ ;"16,1,2,0,4,2,7,1,2,14"
-                 (#(clojure.string/split % #","))
+                  (clojure.string/split $ #",")
-                 (map read-string)
+                  (map read-string $)
                   )
-      mean (quot (apply + input) (count input))
+      mean (quot (apply + input) (count input))]
-      ]
   (println (min (calc-fuel input mean)
                 (calc-fuel input (inc mean))))
   )