74 lines
1.8 KiB
Perl
74 lines
1.8 KiB
Perl
use 5.20.0;
|
|
use experimental qw/ signatures postderef /;
|
|
use List::AllUtils qw/ any /;
|
|
|
|
my @commands = <>;
|
|
|
|
my @prog = map { bless
|
|
{ q => [], id => $_, reg => { p => $_ }, }, 'Prog'
|
|
} 0..1;
|
|
|
|
use DDP;
|
|
|
|
my $sent1;
|
|
|
|
|
|
package Prog {
|
|
my $vr = qr/(?<val>-?\d+|.)/;
|
|
|
|
sub valof($self, $x) {
|
|
$x =~ /\d/ ? $x : $self->{reg}{$x};
|
|
}
|
|
|
|
sub run($self) {
|
|
while() {
|
|
use DDP;
|
|
my $i = $self->{i};
|
|
my $c = $commands[$i] or return;
|
|
|
|
if( $c =~ /snd (.)/ ) {
|
|
warn ++$sent1 if $self->{id};
|
|
push $prog[ 1 - $self->{id} ]->{q}->@*, $self->valof($1);
|
|
}
|
|
elsif( $c =~ /set (.) $vr/ ) {
|
|
$self->{reg}{$1} = $self->valof($2);
|
|
}
|
|
elsif( $c =~ /add (.) $vr/ ) {
|
|
$self->{reg}{$1} += $self->valof($2);
|
|
}
|
|
elsif( $c =~ /mul (.) $vr/ ) {
|
|
$self->{reg}{$1} *= $self->valof($2);
|
|
}
|
|
elsif( $c =~ /mod (.) $vr/ ) {
|
|
$self->{reg}{$1} %= $self->valof($2);
|
|
}
|
|
elsif( $c =~ /jgz (.) $vr/ ) {
|
|
$self->{i} += ($self->valof($1) > 0) ? $self->valof($2) : 1;
|
|
next;
|
|
}
|
|
elsif( $c =~ /rcv (.)/ ) {
|
|
return unless $self->{q}->@*;
|
|
my $j = shift $self->{q}->@*;
|
|
$self->{reg}{$1} = $j;
|
|
}
|
|
else { die "wut? $_"; }
|
|
|
|
$self->{i}++;
|
|
|
|
}
|
|
}
|
|
}
|
|
|
|
while() {
|
|
$prog[1]->run;
|
|
$prog[0]->run;
|
|
# p @prog;
|
|
# my $dummy = <STDIN>;
|
|
warn join ":", map { $_->{i} } @prog;
|
|
last unless any { scalar $_->@* } map { $_->{q} } @prog;
|
|
last if 2 == grep { $_ >= @commands } map { $_->{i} } @prog;
|
|
}
|
|
|
|
say $sent1;
|
|
|