# How to join in the following way?

Consider the following list of tables:

listtemp[n_] := Table[RandomReal[{0, 1}, {2, 2}], n];


How to join its elements at the level 2 in a compact way for arbitrary n?

Say, for

list5=listtemp[5];


the desired result obtained in the tedious way is

Join[list5[[1]],list5[[2]],list5[[3]],list5[[4]],list5[[5]],2];


Use

Join[##, 2] & @@ list5


or

 Join[Sequence @@ list5, 2]

SeedRandom[0];

listtemp[n_] := Table[RandomReal[{0, 1}, {2, 2}], n];

n = 5;

list = listtemp[n]


{{{0.652468, 0.63307}, {0.682813, 0.566352}},
{{0.935202, 0.976188}, {0.238452, 0.637562}},
{{0.101098, 0.645525}, {0.159522, 0.813788}},
{{0.904785, 0.640712}, {0.30654, 0.756198}},
{{0.876688, 0.0191284}, {0.542617, 0.352371}}}

Using ArrayReshape

ArrayReshape[Transpose @ list, {2, 2 n}]


{{0.652468, 0.63307, 0.935202, 0.976188, 0.101098, 0.645525, 0.904785,0.640712, 0.876688, 0.0191284},
{0.682813, 0.566352, 0.238452, 0.637562, 0.159522, 0.813788, 0.30654, 0.756198, 0.542617, 0.352371}}