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

golf + comments

Browse Source
This commit is contained in:
Adam Jeniski 2025-12-08 22:29:46 -10:00
parent c47c11a973
commit 5ca7f15404
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
2025/src/day09.clj
View File

@ -38,14 +38,13 @@
;; part 2 ;; part 2
(->> largest-squares (->> largest-squares
(filter (fn [[a b]] (filter (fn [[a b]]
(let [segments (filter (fn [[seg-a seg-b]] (and (not= a seg-a) (let [segments (filter (fn overlapping? [[seg-a seg-b]]
(not= a seg-b) (and (not= a seg-a) (not= a seg-b)
(not= b seg-a) (not= b seg-a) (not= b seg-b))) ;; filter out segments that include points a or b
(not= b seg-b)))
line-segments) line-segments)
[[cx cy] [dx dy]] [a b]] [[cx cy] [dx dy]] [a b]]
(and (not (some #(intersect? [a b] %) segments)) (and (not (some #(intersect? [a b] %) segments))
(not (some #(intersect? [[cx dy] [dx cy]] %) segments)))))) (not (some #(intersect? [[cx dy] [dx cy]] %) segments)))))) ;; check reverse diaganol too
(sort-by (partial apply area)) (sort-by (partial apply area))
last last
(apply area)) (apply area))