5 chomp (my @mem = split /,/, <>);
8 my ($m1, $m2, @mem) = @_;
14 $mem[ $mem[$pc+3] ] = $mem[ $mem[$pc+1] ] + $mem[ $mem[$pc+2] ];
15 } elsif ($mem[$pc] == 2) {
16 $mem[ $mem[$pc+3] ] = $mem[ $mem[$pc+1] ] * $mem[ $mem[$pc+2] ];
17 } elsif ($mem[$pc] == 99) {
27 say 100*$n + $v if run($n, $v, @mem) == 19690720;