diff options
| author | Clyne Sullivan <clyne@bitgloo.com> | 2022-11-30 19:55:31 -0500 |
|---|---|---|
| committer | Clyne Sullivan <clyne@bitgloo.com> | 2022-11-30 19:55:31 -0500 |
| commit | 8d43e37df99f280377bed90284d6ac2428334804 (patch) | |
| tree | 3a5042c9af29da52b4bac38fd78b3ccde77a1dbc /day5/part1.clj | |
| parent | 66ed0b9d27850dc653abc8baa75884f3de311bfa (diff) | |
move 2021 days to folder; update README
Diffstat (limited to 'day5/part1.clj')
| -rw-r--r-- | day5/part1.clj | 75 |
1 files changed, 0 insertions, 75 deletions
diff --git a/day5/part1.clj b/day5/part1.clj deleted file mode 100644 index 95d04ba..0000000 --- a/day5/part1.clj +++ /dev/null @@ -1,75 +0,0 @@ -(require '[clojure.string :as str]) - -(defn read-coords [] - (let [line (read-line)] - (when (not (empty? line)) - (mapv - #(Integer/parseInt %) - (str/split - line - #"[^\d]+" - ) - ) - ) - ) - ) - -(defn read-all-coords [] - (loop [cds [] c (read-coords)] - (if (empty? c) - cds - (recur - (conj cds c) - (read-coords) - ) - ) - ) - ) - -(defn mark-coord [cmap x y] - (update cmap y #(update % x inc)) - ) - -(defn mark-coords [cmap x1 y1 x2 y2] - (cond - (= y1 y2) - (reduce - #(mark-coord %1 %2 y1) - cmap - (range (min x1 x2) (inc (max x1 x2))) - ) - (= x1 x2) - (reduce - #(mark-coord %1 x1 %2) - cmap - (range (min y1 y2) (inc (max y1 y2))) - ) - :else - cmap - ) - ) - -(defn empty-map [] - (vec - (repeat 1000 - (vec (repeat 1000 0)) - ) - ) - ) - -(def finished-map - (reduce - #(apply (partial mark-coords %1) %2) - (empty-map) - (read-all-coords) - ) - ) - -(->> finished-map - (flatten) - (map dec) - (filter pos?) - (count) - (println) - ) - |