First half of Year 2019

[aoc.git] / 2019 / 08.pl

diff --git a/2019/08.pl b/2019/08.pl
new file mode 100755 (executable)
index 0000000..948322f
--- /dev/null
+++ b/2019/08.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl -w
+
+use v5.16;
+
+my $count;
+NUM:
+for (347312..805915) {
+       for my $d (0 .. 9) {
+               goto FOUND if /$d{2}/ && !/$d{3}/;
+       }
+       next;
+       FOUND:
+       my $prev = 0;
+       for my $d (split //) {
+               next NUM if $d < $prev;
+               $prev = $d;
+       }
+       $count++;
+}
+
+say $count;
+