2018/05.pl

   1 #!/usr/bin/perl -w
   2
   3 use v5.30;
   4 use strict;
   5
   6 my %map;
   7 while (<>) {
   8         chomp;
   9         my ($id, $x, $y, $w, $h) = /(\d+)/g;
  10         for my $dx (0 .. $w-1) {
  11                 for my $dy (0 .. $h-1) {
  12                         $map{$x+$dx,$y+$dy}++;
  13                 }
  14         }
  15 }
  16
  17 my $sum;
  18 for my $k (keys %map) {
  19         $sum++ if $map{$k} > 1;
  20 }
  21 say $sum;