This commit is contained in:
Adam Jeniski 2025-12-08 22:16:53 -10:00
parent bcffe4e5bf
commit 37c2786336

View File

@ -29,7 +29,8 @@
(* (- bx ax) (- cy by)))))
(defn intersect?
"Lines AB and CD intersect if A and B falls on different sides of CD and if C and D fall on different sides of AB"
"Lines AB and CD intersect if points A and B falls on different sides of CD
and if C and D fall on different sides of AB"
[[a b] [c d]]
(let [o1 (orientation a b c)
o2 (orientation a b d)