Anonymous user
Total circles area: Difference between revisions
m
→{{header|Haskell}}
(→{{header|Haskell}}: analytical solution) |
|||
Line 374:
in_circle ((x0,y0),c) (x,y,r) = c /= (x,y,r) && vdist (x0,y0) (x,y) < r
in_any_circle arc =
where (c,_) = arc
|