在Mathematica中组合数组？

Question

我有两个列表清单，可以通过以下方式进行示意性总结：

a = {{1}, {2}, {3}};
b = {{4}, {5}, {6}};

我想将它们组合成一个列表列表，每个元素都处于同一级别，ala：

    {{1}, {2}, {3}, {4}, {5}, {6}}

除了我不能为我的生活做到这一点。最明显的事情是：

In[537]:= Append[a, b]
Out[537]= {{1}, {2}, {3}, {{4}, {5}, {6}}}

这不是我想要的。 Append文档似乎没有涵盖这样的情况，我无法获得任何数量的Appending和Flattening。我想我可以编写一个for循环并继续添加到一个空列表，但好神是笨拙的。必须有一种优雅的方式来做到这一点吗？

Answer 1

更改您的代码：

In[537]:= Append[a, b]

为：

In[537]:= Join[a, b]

Answer 2

这不是最佳方式（PinnyM提到最佳方式），但您可以考虑

Flatten[Append[a,b]]

或只是

Append[a,b]//Flatten

给出了相同的结果。