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

format

Browse Source
This commit is contained in:
Adam Jeniski 2024-12-05 10:49:44 -05:00
parent bd26741879
commit b9943d7138
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
2024/src/day05.clj
View File

@ -19,20 +19,20 @@
(defn ordered? [coll] (defn ordered? [coll]
(reduce (fn [acc el] (reduce (fn [acc el]
(if (if (some acc (orderings el))
(some acc (orderings el)) (reduced false) (reduced false)
(conj acc el))) (conj acc el)))
#{} coll)) #{} coll))
(defn order [coll] (defn order [coll]
(reduce (fn [acc p] (reduce (fn [acc el]
(if-let [idxs (->> (orderings p) (if-let [idxs (->> (orderings el)
(filter #(contains? (set acc) %)) (filter #(contains? (set acc) %))
(map #(.indexOf acc %)) (map #(.indexOf acc %))
(filter #(not= % -1)) (filter #(not= % -1))
not-empty)] not-empty)]
(c/insert-vec acc (apply min idxs) p) (c/insert-vec acc (apply min idxs) el)
(conj acc p))) (conj acc el)))
[] coll)) [] coll))
;; part 1 ;; part 1