adventofcode/2015/23/1.pl
Yanick Champoux b34285bcf9 2015-23
2017-12-14 14:41:37 -05:00

41 lines
682 B
Perl

use 5.20.0;
my @code = <>;
my $i = 0;
my %t;
while( $i < @code ) {
warn join ' ', $i, $t{a}, $t{b}, $code[$i];
# my $dummy = <>;
if( $code[$i] =~ /inc (.)/ ) {
$t{$1}++;
$i++;
}
elsif( $code[$i] =~ /tpl (.)/ ) {
$t{$1} *= 3;
$i++;
}
elsif( $code[$i] =~ /hlf (.)/ ) {
$t{$1} /= 2;
warn $t{$1};
$i++;
}
elsif( $code[$i] =~ /jmp ([+-]\d+)/ ) {
$i+=$1;
}
elsif( $code[$i] =~ /jie (.), ([+-]\d+)/ ) {
$i+= ($t{$1} % 2) ? 1 : $2;
}
elsif( $code[$i] =~ /jio (.), ([+-]\d+)/ ) {
$i+= ($t{$1} != 1) ? 1 : $2;
warn $i;
}
}
use DDP;
p %t;