do day 6

2023/src/day06.clj

@@ -0,0 +1,30 @@
+(ns ^{:doc "Day 6"
+      :author "Adam Jeniski"}
+ day06 (:require [clojure.string :as string]
+                 [core :refer [get-puzzle-input]]))
+
+(def input (->> (get-puzzle-input 6)))
+
+(defn ways-to-beat [[ms record]]
+  (->> (range 1 ms)
+       (pmap #(* % (- ms %)))
+       (filter #(> % record))
+       (count)))
+
+;; part 1
+(->> input
+     (map (partial re-seq #"\d+"))
+     (map (partial map #(Long/parseLong %)))
+     (apply zipmap)
+     (map ways-to-beat)
+     (reduce *))
+
+;; part 2
+(->> input
+     (map (partial re-seq #"[\s\d]+"))
+     (map (partial map #(string/replace % " " "")))
+     (map (partial map #(Long/parseLong %)))
+     (apply zipmap)
+     (map ways-to-beat)
+     (reduce *))
+