Advertisement
Guest User

Untitled

a guest
Feb 22nd, 2016
93
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ClearAll[setup]
  2. SetAttributes[setup, HoldRest]
  3. setup[x_, z_, numX_] := (numX = Length[x];
  4. Do[z[i] = StringLength[x[[i]]], {i, numX}])
  5.  
  6. g[x_List] := Module[
  7. {numX, z},
  8. setup[x, z, numX];
  9. Table[z[i], {i, numX}]
  10. ]
Advertisement
Advertisement
Advertisement
RAW Paste Data Copied
Advertisement