2023, day 6

Author: FelipeCortez

2023/06.clj

@@ -0,0 +1,9 @@
+(ns wait-for-it)
+
+(defn ways-to-win [[duration record]]
+ (count (for [i (range (inc duration))
+ :let [travel-time (- duration i)]
+ :when (> (* travel-time i) record)]
+ i)))
+
+(reduce * (map ways-to-win durations+records))