Question

Mathematica 关于列表插入问题？

把g1各子表的元素对应插入到g2中得到g4,使g1中的元素在g4的位置按g3子表的数字对应,例如:
输入: g1={{x,x},{x,x,x},{x,x},{x,x}};
g2={{a,a,a,a,a},{a,a,a,a,a},{a,a,a,a,a},{b,b,b,b,b,b}};
g3={1,2},{1,2,3},{3,5},{1,8}};
输出: g4= {{x,x,a,a,a,a,a},{x,x,x,a,a,a,a,a},{a,a,x,a,x,a,a},{x,b,b,b,b,b,b,x}}

Answer 1

insert[g1_, g2_, g3_] := Module[{length2, g4, i, j},
length2 = Length[g2];
g4 = g2;
For[j = 1, j <= length2, j++,
For[i = 1, i <= Length[g1[[j]]], i++,
g4[[j]] = Insert[g4[[j]], g1[[j]][[i]], g3[[j]][[i]]]]];
g4
];
g4 = insert[g1, g2, g3]