# how to drop the second curly bracket?

I would like to modify the following List:

vtable ={ { {0,{0}},{0, {1}}} ,{{1,{0}},{1,{1}}}  }


as follows:

vtable={{0,0},{0,1},{1,0},{1,1}}


that is I want to remove the far most internal bracket of the list....

I read about the Flatten command but I cannot do much...actually what I get is something like {{0,{0}},{0,{1}}, ....} or even worse... {0,0,0,1,1,0,1,1}

How can I do that? Thanks for your time.

Try with:

Flatten /@ Flatten[vtable, 1]


{{0, 0}, {0, 1}, {1, 0}, {1, 1}}

Flatten /@ (Join @@ vtable)


{{0, 0}, {0, 1}, {1, 0}, {1, 1}}

ArrayReshape[vtable, {4, 2}]


{{0, 0}, {0, 1}, {1, 0}, {1, 1}}

Join @@ vtable /. {a_} :> a


{{0, 0}, {0, 1}, {1, 0}, {1, 1}}

MapAt[Sequence @@ # &, vtable, {{All, All, -1}, {1}, {2}}]


{{0, 0}, {0, 1}, {1, 0}, {1, 1}}

• Thanks for your professional answer but it is for the time being a bit too advanced for me...(+10) Jan 21, 2020 at 9:46
 vtable /. {x_, {y_}} :> {x, y} // Flatten[#, 1] &


{{0, 0}, {0, 1}, {1, 0}, {1, 1}}

• (+1) vtable /. {x_, {y_}} :> {x, y} // Catenate is a (very) slight variant Jan 21, 2020 at 15:27
Replace[Catenate[vtable], {x_,{y_}}:> {x,y},{1}]


{{0, 0}, {0, 1}, {1, 0}, {1, 1}}

Partition[Flatten[vtable],2]


{{0, 0}, {0, 1}, {1, 0}, {1, 1}}