2019/03.pl

   1 #!/usr/bin/perl -w
   2
   3 use v5.16;
   4
   5 chomp (my @mem = split /,/, <>);
   6 $mem[1] = 12;
   7 $mem[2] = 2;
   8 my $pc = 0;
   9 while (1) {
  10         if ($mem[$pc] == 1) {
  11                 $mem[ $mem[$pc+3] ] = $mem[ $mem[$pc+1] ] + $mem[ $mem[$pc+2] ];
  12         } elsif ($mem[$pc] == 2) {
  13                 $mem[ $mem[$pc+3] ] = $mem[ $mem[$pc+1] ] * $mem[ $mem[$pc+2] ];
  14         } elsif ($mem[$pc] == 99) {
  15                 last;
  16         }
  17         $pc += 4;
  18 }
  19
  20 say $mem[0];