Mathematica怎么在表中插入子表

如循环生成{{1},{1,2},{1,2,3},...},
L0={L0,{1,...,i}}会变成多层表而不是上面那种。

arr1 = {};
arr2 = {};
For[ii = 1, ii <= 5, ii++,
arr1 = AppendTo[arr1, ii];
arr2 = AppendTo[arr2, arr1]
]
arr1
arr2
或者下面的写法

arr1 = {{1}};
For[ii = 2, ii <= 5, ii++,
arr1 = AppendTo[arr1, AppendTo[arr1[[-1]], ii]];
]
arr1

我记得上次回答你的问题时，曾告诉过你，关于 mathematica 的问题请归类到编程语言下面，难道你没看到吗？上次归类到数学下面，还可以理解，这次更奇葩，竟然成了化学。之所以归类到编程语言下面一方面是 mathematica 的问题是属于编程范畴的，另一方面对于我们这些回答问题的人，在编程语言的分类下面输入程序代码非常方便，免去了我们还要再调整的麻烦。我们都有自己的事情要做，能无偿为你们提供回答已是很不错的，所以请尊重我们的要求，谢谢！ mapthread[insert, {s1, s2, s3}]