6 my @pts = map { [ /(\d+)/g ] } <>;
8 my ($minx, $miny, $maxx, $maxy);
10 $minx = $pt->[0] if !defined $minx || $minx > $pt->[0];
11 $maxx = $pt->[0] if !defined $maxx || $maxx < $pt->[0];
12 $miny = $pt->[1] if !defined $miny || $miny > $pt->[1];
13 $maxy = $pt->[1] if !defined $maxy || $maxy < $pt->[1];
17 for my $x ($minx .. $maxx) {
18 for my $y ($miny .. $maxy) {
20 for my $i (0 .. $#pts) {
22 $dist += abs($x-$pt->[0]) + abs($y-$pt->[1]);
24 $count++ if $dist < 10000;