ajet/advent-of-code
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

golf

Browse Source
This commit is contained in:
Adam Jeniski 2025-12-08 15:07:48 -10:00
parent f70ba6d543
commit 4e5cba07bf
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
2025/src/day08.clj
View File

@ -5,7 +5,6 @@
(mapv (comp (partial mapv parse-long) (mapv (comp (partial mapv parse-long)
(partial re-seq #"\d+"))))) (partial re-seq #"\d+")))))
(def initial-circuits (into #{} (map hash-set input))) (def initial-circuits (into #{} (map hash-set input)))
(defn square [x] (* x x)) (defn square [x] (* x x))
(defn dist-squared [[ax ay az] [bx by bz]] (defn dist-squared [[ax ay az] [bx by bz]]
(+ (square (- ax bx)) (+ (square (- ax bx))