do 2015 day 5 pt1

2025-11-27 07:17:43 -10:00
parent 171a4d285d
commit de3c367d1c
1 changed files with 14 additions and 0 deletions
@@ -0,0 +1,14 @@
+(ns day05
+  (:require [input-manager]
+            [clojure.string :as str]))
+
+(def input (input-manager/get-input 2015 5))
+
+(def bad #{"ab" "cd" "pq" "xy"})
+
+;; part 1
+(count (filter #(and (not (some (partial str/includes? %) bad))
+                     (>= (count (filter #{\a \e \i \o \u} %)) 3)
+                     (some (partial apply =) (concat (partition 2 %)
+                                                     (partition 2 (rest %)))))
+               input))