Total circles area: Difference between revisions

m
→‎{{header|Perl 6}}: reduce redundancy
m (→‎{{header|Perl}}: oops, lines out-of-order)
m (→‎{{header|Perl 6}}: reduce redundancy)
Line 1,921:
}
 
my $xmin = [min] @circles.map: { .center.x - .radius }
my $xmax = [max] @circles.map: { .center.x + .radius }
my $ymin = [min] @circles.map: { .center.y - .radius }
my $ymax = [max] @circles.map: { .center.y + .radius }
 
my $min-radius = @circles[*-1].radius;
2,392

edits