Select Code to Download

<#> gv[*b] s                      # my $b = $b[$i];
<1> rv2av sKR/1
...
<2> aelem sK/2
<0> padsv[$b:3,4] sRM*/LVINTRO
<2> sassign vKS/2

<#> gv[*b] s                      # $b[$i]
<1> rv2av sKR/1
<0> padsv[$i:2,3] s
<2> aelem sK/2

<0> padsv[$b:3,4] s               # $b

my $b = $b[$i]; ... $b ... $b ... $b    # 6 + 1*3 = 9 ops

$b[$i] ...  $b[$i]  ... $b[$i];         # 0 + 4*3 = 12 ops