Mesh
- To: mathgroup at christensen.cybernetics.net
- Subject: [mg1195] Mesh
- From: donald darling <ddarling at math.uci.edu>
- Date: Mon, 22 May 1995 02:52:49 -0400
A late entry in the interleaf speed contest. The following
simple procedure was used with my klunky DX2-66 running under windows.
v1={a,b,c,d,e,f,g};v2={A,B,C,D,E,F,G};
MapThread[If[Random[Integer]==0,#1,#2]&,{v1,v2}]
{a, B, C, D, e, F, G}
Do[MapThread[If[Random[Integer]==0,#1,#2]&,{v1,v2}],{1000}]//Timing
{4.833 Second, Null}
Don Darling