about summary refs log tree commit diff
path: root/day04.pl
blob: f1137dc2c30f67360b18d8184c159ec512b189a4 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl -w
use v5.16;

my $d = "171309-643603";

my ($a, $b) = split "-", $d;

my $p1 = 0;
my $p2 = 0;

PASS: for ($a..$b) {
    my @ds = split('');

    if (join('',@ds) eq join('',sort(@ds))) {
        $p1++ if /(\d)\1/;
        while (/(\d)\1+/g) { $p2++, next PASS  if length($&) == 2; }
    }
}

say $p1;  # 1625
say $p2;  # 1111