add day 8

1 files changed, 28 insertions, 0 deletions

diff --git a/day8/part1.clj b/day8/part1.clj
new file mode 100644
index 0000000..6c8cd0f
--- /dev/null
+++ b/day8/part1.clj
@@ -0,0 +1,28 @@
+(require '[clojure.string :as str])
+
+(loop [sum 0]
+  (let [line (read-line)]
+    (if (empty? line)
+      (println sum)
+      (recur
+        (+
+         sum
+         (reduce
+           #(let [c (count %2)]
+              (if (or (= 2 c) (= 3 c) (= 4 c) (= 7 c))
+                (inc %1)
+                %1
+                )
+             )
+           0
+           (subvec
+             (mapv (comp str/join sort) (str/split line #" "))
+             11 15
+             )
+           )
+         )
+        )
+      )
+    )
+  )
+