2019/08.pl

   1 #!/usr/bin/perl -w
   2
   3 use v5.16;
   4
   5 my $count;
   6 NUM:
   7 for (347312..805915) {
   8         for my $d (0 .. 9) {
   9                 goto FOUND if /$d{2}/ && !/$d{3}/;
  10         }
  11         next;
  12         FOUND:
  13         my $prev = 0;
  14         for my $d (split //) {
  15                 next NUM if $d < $prev;
  16                 $prev = $d;
  17         }
  18         $count++;
  19 }
  20
  21 say $count;
  22