bert/adventofcode
1
0
Fork 0
mirror of https://github.com/bertptrs/adventofcode.git synced 2025-12-25 21:00:31 +01:00
Code Issues Projects Releases Wiki Activity

Clean up day 5.

Browse Source
This commit is contained in:
Bert Peters
2017-12-06 12:27:03 +01:00
parent ed9f1f7c7d
commit 5b53308a8d
1 changed files with 15 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
2017/day-05/solution.pl
View File

@@ -1,19 +1,23 @@
#!/usr/bin/perl #!/usr/bin/perl
use strict;
use warnings;
my @instructions; my @instructions;
for $line ( <STDIN> ) { for my $line ( <STDIN> ) {
push @instructions, $line; push @instructions, $line;
} }
@instructions2 = @instructions; my @instructions2 = @instructions;
$iptr = 0; my $iptr = 0;
$steps = 0; my $steps = 0;
while ($iptr >= 0 and $iptr < 0 + @instructions) { while ($iptr >= 0 and $iptr < @instructions) {
$jump = @instructions[$iptr]; my $jump = $instructions[$iptr];
@instructions[$iptr]++; $instructions[$iptr]++;
$steps++; $steps++;
$iptr += $jump $iptr += $jump
@@ -24,12 +28,12 @@ print $steps, "\n";
$iptr = 0; $iptr = 0;
$steps = 0; $steps = 0;
while ($iptr >= 0 and $iptr < 0 + @instructions2) { while ($iptr >= 0 and $iptr < @instructions2) {
$jump = @instructions2[$iptr]; my $jump = $instructions2[$iptr];
if ($jump >= 3) { if ($jump >= 3) {
@instructions2[$iptr]--; $instructions2[$iptr]--;
} else { } else {
@instructions2[$iptr]++; $instructions2[$iptr]++;
} }
$steps++; $steps++;