34.pl

   1 #!/usr/bin/perl -w
   2
   3 use v5.16;
   4
   5 my ($xmin, $xmax) = (281, 311); my ($ymin, $ymax) = (-74, -54);
   6 # my ($xmin, $xmax) = (20, 30); my ($ymin, $ymax) = (-10, -5);
   7
   8 my $count;
   9 for my $dx (1 .. $xmax) {
  10 for my $dy ($ymin..-$ymin) {
  11         my ($dx0, $dy0) = ($dx, $dy);
  12         my ($x, $y) = (0, 0);
  13         while ($x <= $xmax && $y >= $ymin) {
  14                 if ($x >= $xmin && $x <= $xmax && $y >= $ymin && $y <= $ymax) {
  15                         $count++;
  16                         # say $dx,',', $dy;
  17                         last;
  18                 }
  19                 $x += $dx0; $y += $dy0;
  20                 if ($dx0 > 0) { $dx0-- };
  21                 $dy0--;
  22         }
  23 } }
  24
  25 say $count;
  26