Total circles area: Difference between revisions

m
(→‎{{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 = or $ mapany (in_circle (arc_mid arc, c)) cs
where (c,_) = arc
 
Anonymous user