Dot product code
Try cutting and pasting this into the restricted
Tcl interpreter, or return to the NArray page.
set len 10
narray create v $len
v map { [] = @0; }
narray create w $len
w map { [] = @0; }
pnarray v
pnarray w
v map -bind w { [] = [] * w[]; }
pnarray v
pnarray w
Sam Shen, slshen@lbl.gov
Last modified: Thu Oct 13 12:07:23 1994