11 my %map = ("0,0" => 1);
15 for my $dx (-1 .. 1) {
16 for my $dy (-1 .. 1) {
17 $sum += $map{$x+$dx,$y+$dy} if defined
22 say "$x, $y = ", $sum;
27 for my $i (0 .. 2*$r-1) {
31 for my $i (1 .. 2*$r) {
35 for my $i (1 .. 2*$r) {
39 for my $i (1 .. 2*$r) {