2018/06.pl

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