Select Code to Download

  DB<14> $i=4; for $x (1..9) { next if $x==$i; $p = $i*$x; $C=int($p/1
+0); $S=$p%10;  print "$i * $x = $p \t$C $S\n" }
4 * 1 = 4       0 4
...
4 * 7 = 28      2 8
4 * 8 = 32      3 2
4 * 9 = 36      3 6

#                                 987654321
@carry0 = (1,2)   , $carry0 =        vec(11)
@carry1 = (3)     , $carry1 =      vec(0100) 
@carry2 = (5,6,7) , $carry2 =   vec(1110000) 
@carry3 = (8,9)   , $carry3 = vec(110000000)