Total circles area: Difference between revisions
m
→{{header|Perl 6}}: parentheses required in one 'for' loop
m (→optimized: changed arrow glyph (in a comment).) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: parentheses required in one 'for' loop) |
||
Line 1,713:
sub set_cbits(Point $p) {
my $cbits = 0;
for @circles Z (1,2,4...*) -> ($c, $b) {
$cbits += $b if $c.contains($p);
}
|