about summary refs log tree commit diff
path: root/day03.pl
blob: 542e8202f26ee224e6acf334f60a927faa475796 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
#!/usr/bin/perl -w
use v5.16;

use File::Slurper 'read_lines';
use List::Util qw'min sum';

my @c = read_lines "day03";

my %f;
my @dur;

while (my ($i, $c) = each @c) {
    my ($x,$y) = (0,0);

    my %d;
    push @dur, \%d;
    my $d = 0;

    for (split ",", $c) {
        for my $n (1..substr($_, 1)) {
            if (/R/) { $x++ }
            if (/L/) { $x-- }
            if (/U/) { $y++ }
            if (/D/) { $y-- }
            
            $f{$x,$y} |= $i+1;
            $d{$x,$y} = ++$d;
        }
    }
}

my @dup = grep { $f{$_} == 1+2 } keys %f;
say min map { my ($x,$y) = split($;, $_); abs($x)+abs($y) } @dup;
say min map { my $c = $_; sum(map { $_->{$c} } @dur) } @dup;

__END__
258
12304