Line circle intersection: Difference between revisions
m
→{{header|Haskell}}
Line 219:
where
[p1,p2] = if pt1 < pt2 then [pt1,pt2] else [pt2,pt1]
go (x,y) (u,v) (i,j)
| x == u = y <= j && j <= v
| |||