#! /usr/bin/perl

use strict ;
use warnings ;

# Define some rules and constants.
my $CLUSTER_RADIUS =  10 ; # Max distance to be included in cluster.
my $CENTER_SKIP    =   5 ; # Distance between centers on cluster scans.
my $CLUSTER_COUNT  =   4 ; # Minimum no. of complaints to make a cluster.
my $START_X        =   0 ;
my $END_X          = 100 ;
my $START_Y        =   0 ;
my $END_Y          = 100 ;

# Load the complaints.
my @complaints = () ;
while ( <DATA> )
{
    next if /^$/ ;
    my $hashref = {} ;
    ( $hashref->{'id'}, $hashref->{'x'}, $hashref->{'y'} ) = split ;
    push @complaints, $hashref ;
}

for ( my $curr_x = $START_X ;
      $curr_x <= $END_X ;
      $curr_x += $CENTER_SKIP )
{
    for ( my $curr_y = $START_Y ;
          $curr_y <= $END_Y ;
          $curr_y += $CENTER_SKIP )
    {
        my @near = map  { $_->[1]->{'dist'} = $_->[0] ; $_->[1] }
                   grep { $_->[0] <= $CLUSTER_RADIUS }
                   map  { [ distance( $curr_x, $curr_y,
                                      $_->{'x'}, $_->{'y'}
                                    ), $_
                          ]
                        } @complaints ;

        my $complaint_count = @near ;
        if ( $complaint_count >= $CLUSTER_COUNT )
        {
            printf "%d complaints near (%d,%d).\n",
            $complaint_count, $curr_x, $curr_y ;
        }
    }
}
exit 0 ;

#-------------------------------------------------------

sub distance
{
    my ($x1, $y1, $x2, $y2 ) = @_ ;
    return sqrt( ( $x2 - $x1 )**2 + ( $y2 - $y1 )**2 ) ;
}

__DATA__
a123 10.1 12.5
b124 12.5 8.6
c125 9.8  10.2
d213 24.6 19.5
e753 35.6 2.2
f854 76.5 46.7
g354 8.7  8.6