在Mathematica中組合數組？

Question

我有兩個列表-的，列出了可以概略地總結了這一點：

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

我想他們在同一水平結合成列表的一個列表，每一個元素，翼：

{{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 

它給出了相同的結果。