kaholaz/aoc24
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Generate directions instead of hardcoding.

Browse source
This commit is contained in:
Sebastian Bugge 2024-12-04 09:35:26 +01:00
parent 7a5127db8f
commit 65966ded99
Signed by: kaholaz
GPG key ID: 2EFFEDEE03519691
1 changed files with 7 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

17
day04.pl
View file

@ -10,16 +10,13 @@ while (<>) {
push @wordgrid, [ split //, $_ ]; push @wordgrid, [ split //, $_ ];
} }
my @directions = ( my @directions = ();
[[0, 0], [1, 1], [2, 2], [3, 3]], for my $a (-1 .. 1) {
[[0, 0], [-1, 1], [-2, 2], [-3, 3]], for my $b (-1 .. 1) {
[[0, 0], [0, 1], [0, 2], [0, 3]], next if ($a == 0 && $b == 0);
[[0, 0], [1, 0], [2, 0], [3, 0]], push @directions, [map { [$a * $_, $b * $_ ] } (0 .. 3)];
[[0, 0], [-1, -1], [-2, -2], [-3, -3]], }
[[0, 0], [1, -1], [2, -2], [3, -3]], }
[[0, 0], [-1, 0], [-2, 0], [-3, 0]],
[[0, 0], [0, -1], [0, -2], [0, -3]],
);
my @diagonal = ([-1, -1], [0, 0], [1, 1]); my @diagonal = ([-1, -1], [0, 0], [1, 1]);
my @otherdiagonal = ([1, -1], [0, 0], [-1, 1]); my @otherdiagonal = ([1, -1], [0, 0], [-1, 1]);