Year 2018

[aoc.git] / 2018 / 05.pl

diff --git a/2018/05.pl b/2018/05.pl
new file mode 100755 (executable)
index 0000000..5eadf3b
--- /dev/null
+++ b/2018/05.pl
@@ -0,0 +1,21 @@
+#!/usr/bin/perl -w
+
+use v5.30;
+use strict;
+
+my %map;
+while (<>) {
+       chomp;
+       my ($id, $x, $y, $w, $h) = /(\d+)/g;
+       for my $dx (0 .. $w-1) {
+               for my $dy (0 .. $h-1) {
+                       $map{$x+$dx,$y+$dy}++;
+               }
+       }
+}
+
+my $sum;
+for my $k (keys %map) {
+       $sum++ if $map{$k} > 1;
+}
+say $sum;