Help for this page

Select Code to Download


  1. or download this
    
my( $x_lo, $x_hi ) = ( -180, -170 );
...
}

print "$count matches.\n";
  2. or download this
    
my( $x_lo, $x_hi ) = ( -180, -170 );
...
}

print scalar(@matches), " matches.\n";
  3. or download this
    my( $x_lo, $x_hi ) = ( -180, -170 );
my( $y_lo, $y_hi ) = ( -130, -120 );
...
  grep { $_->[0] >= $x_lo && $_->[0] <= $x_hi
      && $_->[1] >= $y_lo && $_->[1] <= $y_hi } 
  map [ split ], <>;