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
use strict;
use warnings;
my @instructions;
for $line ( <STDIN> ) {
for my $line ( <STDIN> ) {
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) {
$jump = @instructions[$iptr];
@instructions[$iptr]++;
while ($iptr >= 0 and $iptr < @instructions) {
my $jump = $instructions[$iptr];
$instructions[$iptr]++;
$steps++;
$iptr += $jump
@@ -24,12 +28,12 @@ print $steps, "\n";
$iptr = 0;
$steps = 0;
while ($iptr >= 0 and $iptr < 0 + @instructions2) {
$jump = @instructions2[$iptr];
while ($iptr >= 0 and $iptr < @instructions2) {
my $jump = $instructions2[$iptr];
if ($jump >= 3) {
@instructions2[$iptr]--;
$instructions2[$iptr]--;
} else {
@instructions2[$iptr]++;
$instructions2[$iptr]++;
}
$steps++;