1 files changed, 18 insertions, 0 deletions
diff --git a/year2021/day7/part1.clj b/year2021/day7/part1.clj
new file mode 100644
index 0000000..f08e5b4
--- /dev/null
+++ b/year2021/day7/part1.clj
@@ -0,0 +1,18 @@
+(defn median [lst]
+  (as-> (count lst) $
+    (quot $ 2)
+    (subvec (vec (sort lst)) (dec $) (inc $))
+    (if (even? (count lst)) (apply + $) (second $))
+    (quot $ 2)
+    )
+  )
+
+(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 $)
+      )
+