This commit is contained in:
Adam Jeniski 2025-12-09 06:20:28 -10:00
parent aae7ad038b
commit d2e6f920f3

View File

@ -45,7 +45,7 @@
[[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)))))) ;; check reverse diaganol too (not (some #(intersect? [[cx dy] [dx cy]] %) segments)))))) ;; check reverse diaganol too
(sort-by (partial apply area)) (map (partial apply area))
last sort
(apply area)) last)