# 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) Commented Jan 21, 2020 at 9:46
Replace[Catenate[vtable], {x_,{y_}}:> {x,y},{1}]


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

 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 Commented Jan 21, 2020 at 15:27
Partition[Flatten[vtable],2]


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

list = {{{0, {0}}, {0, {1}}}, {{1, {0}}, {1, {1}}}};


Using MapAt

Catenate @ MapAt[First, {;; , ;; , -1}] @ list


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

Level[vtable, {2}, Map[Flatten]@*List]