First half of Year 2019

[aoc.git] / 2019 / 07.pl

diff --git a/2019/07.pl b/2019/07.pl
new file mode 100755 (executable)
index 0000000..7dce860
--- /dev/null
+++ b/2019/07.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/perl -w
+
+use v5.16;
+
+my $count;
+NUM:
+for (347312..805915) {
+       next if !/(.)\1/;
+       my $prev = 0;
+       for my $d (split //) {
+               next NUM if $d < $prev;
+               $prev = $d;
+       }
+       $count++;
+}
+
+say $count;
+