1 files changed, 10 insertions, 0 deletions
diff --git a/day6/both.clj b/day6/both.clj
new file mode 100644
index 0000000..817c17d
--- /dev/null
+++ b/day6/both.clj
@@ -0,0 +1,10 @@
+(defn find-marker [data n]
+  (->> data
+       (partition n 1)
+       (map #(apply distinct? %))
+       (take-while false?)
+       (#(+ n (count %)))))
+
+(let [data (slurp "input")]
+    (doseq [ind [4 14]]
+      (println (find-marker data ind))))