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

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

14
2024/src/day05.clj
View File

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