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

day 2

Browse Source
This commit is contained in:
Adam Jeniski 2024-12-02 01:21:43 -05:00
parent 1f5cc1cf5e
commit 3e35bcad4a
2 changed files with 1026 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1000
2024/input/2.txt Normal file
View File

File diff suppressed because it is too large Load Diff

33
2024/src/day02.clj
View File

@ -2,15 +2,34 @@
(:require (:require
[input-manager :refer [get-input]] [input-manager :refer [get-input]]
[core :as c])) [core :as c]))
(do
(def input (def input (->> (get-input 2)
(->> (get-input 1) (map c/split-whitespace)
(map identity))) (map #(mapv parse-long %))))
input)
(defn get-diffs [coll]
(->> (map vector coll (rest coll))
(mapv #(apply - %))))
(defn small-diffs? [diffs]
(or (every? #(<= 1 % 3) diffs)
(every? #(<= -3 % -1) diffs)))
(defn remove-at-idx [v idx]
(concat (subvec v 0 idx) (subvec v (inc idx))))
;; part 1 ;; part 1
(->> input) (->> input
(mapv get-diffs)
(filterv small-diffs?)
count)
;; part 2 ;; part 2
;; (->> input) (->> input
(map (fn [coll]
(map #(remove-at-idx coll %)
(range (count coll)))))
(map #(map get-diffs %))
(filter #(some small-diffs? %))
count)