first few days

3/2.pl

@@ -0,0 +1,56 @@
+#!/usr/bin/perl
+
+use strict;
+
+chomp (my @data = <STDIN>);
+my %seen;
+my %area;
+my %overlapped;
+
+foreach my $line (@data) {
+    # #1 @ 1,3: 4x4
+    #print $line . "\n";
+    my ($id, $sx, $sy, $w, $h) = ($line =~ m/#(\d+) @ (\d+),(\d+): (\d+)x(\d+)/);
+    $overlapped{$id} = 1;
+
+    foreach my $r (expand_area($sx, $sy, $w, $h)) {
+        #print "A: $r\n";
+        $seen{$r}++;
+        $area{$r}->{$id}++;
+    }
+
+}
+
+my $count = 0;
+foreach my $k (keys %seen) {
+    #print "F: $k $seen{$k}\n";
+    if ($seen{$k} > 1) {
+        $count++
+    }
+}
+print $count . "\n";
+
+foreach my $k (keys %area) {
+    my $h = $area{$k};
+    my @a = keys %$h;
+    if ($#a >= 1) {
+        foreach my $o (keys %$h) {
+            delete $overlapped{$o} 
+        }
+    }
+}
+use Data::Dumper;
+print Dumper \%overlapped;
+
+
+sub expand_area ($$$$) {
+    my @r;
+    my ($sx, $sy, $w, $h) = @_;
+    for (my $i = 0; $i < $w; $i++) {
+        for (my $j = 0; $j < $h; $j++) {
+            my $s = (($sx+$i) . "," . ($sy+$j));
+            push @r, $s;
+        }
+    }
+    return @r;
+}