I have a list/array like so:
{{{1}, {2}, {3}, {4}, {5}, {6}}, {{7}, {8}, {9}, {10}, ... }} I want to remove the curly brackets around each element (so I can use ListDensityPlot) so that I have:
{{1, 2, 3, 4, 5, 6}, {7, 8, 9, ...}}
$\begingroup$ $\endgroup$
4 
3 Answers
$\begingroup$ $\endgroup$
list = {{{1}, {2}, {3}, {4}, {5}, {6}}, {{7}, {8}, {9}, {10}}}; Flatten /@ list {{1, 2, 3, 4, 5, 6}, {7, 8, 9, 10}}
Or use the operator form
Map[Flatten] @ list 
$\begingroup$ $\endgroup$
3 Just to put my comment on record, I propose
{{{1}, {2}, {3}, {4}, {5}, {6}}, {{7}, {8}, {9}, {10}}}[[All, All, 1]] which gives
{{1, 2, 3, 4, 5, 6}, {7, 8, 9, 10}}
- $\begingroup$ I see that you have adopted my solution since this was last asked. ;^) $\endgroup$Mr.Wizard– Mr.Wizard2017-07-31 22:19:23 +00:00Commented Jul 31, 2017 at 22:19
- 1$\begingroup$ @Mr.Wizard. Why not? Your methods are often the best, and I can still learn even at my advanced age. $\endgroup$m_goldberg– m_goldberg2017-07-31 23:59:55 +00:00Commented Jul 31, 2017 at 23:59
- $\begingroup$ I am sincerely flattered. Also I strongly suspect your memory works better than mine, age notwithstanding. $\endgroup$Mr.Wizard– Mr.Wizard2017-08-01 09:46:13 +00:00Commented Aug 1, 2017 at 9:46
$\begingroup$ $\endgroup$
1 Given your list as:
list = {{{1}, {2}, {3}, {4}, {5}, {6}}, {{7}, {8}, {9}, {10}}}; Use Flatten to remove the inner brackets.
Flatten /@ list Which gives:
{{1, 2, 3, 4, 5, 6}, {7, 8, 9, 10}} 
- 1$\begingroup$ Isn't this the same answer as eldo's above? $\endgroup$MarcoB– MarcoB2017-07-31 19:27:43 +00:00Commented Jul 31, 2017 at 19:27
Flatten[{{{1, 2}, {3, 4}, {5, 6}}, {{7, 8}, {9, 10}}}, {{1}, {2, 3}}]. (Pretty sure this is a dupe...) $\endgroup$Flatten /@ {{{1, 2}, {3, 4}, {5, 6}}, {{7, 8}, {9, 10}}}$\endgroup${{{1}, {2}, {3}, {4}, {5}, {6}}, {{7}, {8}, {9}, {10}}}[[All, All, 1]]$\endgroup$