Question

Mathematica 如何将表中每个元素各自重复若干次？

如何将表中每个元素各自重复若干次？
例如：
输入：s1={1,2,3};
现在需要将s1中第1个数重复2次，第2个数重复3次，第3个数重复5次，
把重复次数表写为：
s2={2,3,5}
输出：
s3={{1,1},{2,2,2},{3,3,3,3,3}}
谢谢！

Answer 1

你需要ConstantArray：

ConstantArray[#, #2] & @@@ Transpose[{s1, s2}]

当然用Table什么的也是可以的啦。