yanick/adventofcode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

prettier

Browse Source
This commit is contained in:
Yanick Champoux 2023-12-08 10:35:08 -05:00
parent b1cf1719a3
commit c7b8b6a8c8
4 changed files with 23 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
2023/08/Part1.pm
View File

@ -4,21 +4,22 @@ package Part1;
use List::AllUtils qw/ /; use List::AllUtils qw/ /;
sub parse_input($input) { sub parse_input ($input) {
my ( $directions, undef, @nodes ) = split "\n", $input; my ( $directions, undef, @nodes ) = split "\n", $input;
$directions = [ split "", $directions =~ s/R/1/gr =~ s/L/0/gr ]; $directions = [ split "", $directions =~ s/R/1/gr =~ s/L/0/gr ];
my %nodes; my %nodes;
for(@nodes) { for (@nodes) {
my @n = /([A-Z]+)/g; my @n = /([A-Z]+)/g;
$nodes{ shift @n } = \@n; $nodes{ shift @n } = \@n;
} }
return { return {
directions => $directions, directions => $directions,
nodes => \%nodes }; nodes => \%nodes
};
} }
sub solution_1 ($input) { sub solution_1 ($input) {
@ -30,10 +31,11 @@ sub solution_1 ($input) {
my $next_index = 0; my $next_index = 0;
my $current = 'AAA'; my $current = 'AAA';
while( $current ne 'ZZZ') { while ( $current ne 'ZZZ' ) {
$visited++; $visited++;
$current = $nodes{$current}->[ $directions[$next_index++ % @directions ] ]; $current =
$nodes{$current}->[ $directions[ $next_index++ % @directions ] ];
} }
return $visited; return $visited;

1
2023/08/Part2.pm
View File

@ -6,7 +6,6 @@ use Part1;
use List::AllUtils qw/ /; use List::AllUtils qw/ /;
sub solution_2 ($input) { sub solution_2 ($input) {
...; ...;
} }

15
2023/08/part1.t
View File

@ -13,13 +13,14 @@ my %solutions = deserialize_file('solutions.yml')->%*;
my $parsed = Part1::parse_input($example); my $parsed = Part1::parse_input($example);
use DDP; p $parsed; use DDP;
p $parsed;
is $parsed->{directions} => [1,0]; is $parsed->{directions} => [ 1, 0 ];
is $parsed->{nodes}{AAA} => [ qw/ BBB CCC /]; is $parsed->{nodes}{AAA} => [qw/ BBB CCC /];
is Part1::solution_1($example) => 2; is Part1::solution_1($example) => 2;
is Part1::solution_1(<<'END') => 6; is Part1::solution_1(<<'END') => 6;
LLR LLR
AAA = (BBB, BBB) AAA = (BBB, BBB)
@ -27,11 +28,9 @@ BBB = (AAA, ZZZ)
ZZZ = (ZZZ, ZZZ) ZZZ = (ZZZ, ZZZ)
END END
SKIP: { SKIP: {
# skip "not there yet" if $solutions{1} eq 'TODO'; # skip "not there yet" if $solutions{1} eq 'TODO';
is Part1::solution_1($input) => $solutions{1}; is Part1::solution_1($input) => $solutions{1};
} }
done_testing; done_testing;