simplify
This commit is contained in:
parent
aae7ad038b
commit
d2e6f920f3
@ -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)
|
||||||
|
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user