1 files changed, 13 insertions, 17 deletions
diff --git a/day7/part1.clj b/day7/part1.clj
index 03c2aa6..f08e5b4 100644
--- a/day7/part1.clj
+++ b/day7/part1.clj
@@ -1,22 +1,18 @@
 (defn median [lst]
-  (let [cnt (count lst)
-        hlf (quot cnt 2)
-        srt (sort lst)]
-    (cond->> (nth srt hlf)
-      (even? cnt)
-      (+ (nth srt (dec hlf)))
-      :true
-      (#(quot % 2))
-      )
+  (as-> (count lst) $
+    (quot $ 2)
+    (subvec (vec (sort lst)) (dec $) (inc $))
+    (if (even? (count lst)) (apply + $) (second $))
+    (quot $ 2)
     )
   )
 
-(->> (slurp "./in") ; "16,1,2,0,4,2,7,1,2,14"
-     (#(clojure.string/split % #","))
-     (map read-string)
-     (#(map (partial - (median %)) %))
-     (map #(Math/abs %))
-     (apply +)
-     (println)
-     )
+(as-> (slurp "./in") $ ; "16,1,2,0,4,2,7,1,2,14"
+      (clojure.string/split $ #",")
+      (mapv read-string $)
+      (map (partial - (median $)) $)
+      (map #(Math/abs %) $)
+      (apply + $)
+      (println $)
+      )