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

Compare commits

base: ajet:c47c11a973fef8b0cf53bd8c60e8b2a6db8ec136
Branches Tags
ajet:master
...
compare: ajet:aae7ad038b6625000c5e0b99d4b83a69e554e643
Branches Tags
ajet:master

2 Commits
c47c11a973 ... aae7ad038b

Author SHA1 Message Date
ajet
aae7ad038b simplify 2025-12-08 22:32:23 -10:00
ajet
5ca7f15404 golf + comments 2025-12-08 22:29:46 -10:00
1 changed files with 5 additions and 6 deletions
Show Stats Expand all files Collapse all files

11
2025/src/day09.clj
View File

@ -33,19 +33,18 @@
o3 (orientation c d a)
o4 (orientation c d b)]
(and (not= o1 o2) (not= o3 o4))))
(def line-segments (map vector input (conj (vec (rest input)) (first input))))
(def line-segments (map vector input (rest input)))
;; part 2
(->> largest-squares
(filter (fn [[a b]]
(let [segments (filter (fn [[seg-a seg-b]] (and (not= a seg-a)
(not= a seg-b)
(not= b seg-a)
(not= b seg-b)))
(let [segments (filter (fn overlapping? [[seg-a seg-b]]
(and (not= a seg-a) (not= a seg-b)
(not= b seg-a) (not= b seg-b))) ;; filter out segments that include points a or b
line-segments)
[[cx cy] [dx dy]] [a b]]
(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))
last
(apply area))