ajet/advent-of-code
1
0
Fork 0
mirror of https://github.com/Ajetski/advent-of-code.git synced 2025-09-30 07:23:18 -09:00
Code Issues Packages Projects Releases Wiki Activity

golf

Browse Source
This commit is contained in:
Adam Jeniski 2023-12-06 08:03:58 -05:00
parent c6517a9c3b
commit 720d668620
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
2023/src/day06.clj
View File

@ -5,13 +5,13 @@
(def input (get-puzzle-input 6))
(defn solve [num-str-lists]
(defn solve [num-str-lists] ; takes a list of list of nums-string representing time and distance
(->> (map (partial map #(Long/parseLong %)) num-str-lists)
(apply zipmap)
(map (fn [[ms record]] (->> (range 1 ms)
(map #(* % (- ms %)))
(filter #(> % record))
(count))))
count)))
(reduce *)))
;; part 1