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

golf

Browse Source
This commit is contained in:
Adam Jeniski 2023-12-06 07:57:26 -05:00
parent e1650bd8f6
commit 8ee2a7d72c
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
2023/src/day06.clj
View File

@ -3,7 +3,7 @@
day06 (:require [clojure.string :as string] day06 (:require [clojure.string :as string]
[core :refer [get-puzzle-input]])) [core :refer [get-puzzle-input]]))
(def input (->> (get-puzzle-input 6))) (def input (get-puzzle-input 6))
(defn solve [num-str-lists] (defn solve [num-str-lists]
(->> (map (partial map #(Long/parseLong %)) num-str-lists) (->> (map (partial map #(Long/parseLong %)) num-str-lists)
@ -15,13 +15,11 @@
(reduce *))) (reduce *)))
;; part 1 ;; part 1
(->> input (->> (map (partial re-seq #"\d+") input)
(map (partial re-seq #"\d+"))
solve) solve)
;; part 2 ;; part 2
(->> input (->> (map (partial re-seq #"[\s\d]+") input)
(map (partial re-seq #"[\s\d]+"))
(map (partial map #(string/replace % " " ""))) (map (partial map #(string/replace % " " "")))
solve) solve)