Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: de-nesting complex nested lists

  • To: mathgroup at smc.vnet.net
  • Subject: [mg111270] Re: de-nesting complex nested lists
  • From: "David Park" <djmpark at comcast.net>
  • Date: Sun, 25 Jul 2010 07:47:05 -0400 (EDT)
  • References: <24512621.1280038536627.JavaMail.root@n11>

Two methods:

test = {{1, 2, 3}, {1, 2, 
    4}, {{1, 2, 3, 4}, {1, 2, 3, 8}}, {{1, 2, 
     9}, {{1, 2, 13}, {4, 5, 6}}}}; 

Cases[test, {(_?NumericQ) ..}, \[Infinity]] 

Nest[Map[Sequence @@ # &, #, {-3}] &, test, Depth[test] - 3] 


David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark/  



From: Michael Stern [mailto:nycstern at gmail.com] 

If one has an irregularly nested list like

{{1, 2, 3}, {1, 2,  4}, {{1, 2, 3, 4}, {1,
 2, 3, 8}}, {{1, 2, 9}, {{1, 2, 13}, {4, 5, 6}}}},

How might one most easily transform this into a list of uniform Depth 2  (
{{1,2,3},{1,2,4},{1,2,3,4},{1,2,3,8},{1,2,9},{1,2,13},{4,5,6}} ) ?

Thanks in advance,

Michael




  • Prev by Date: Re: de-nesting complex nested lists
  • Next by Date: Re: mathematica gives strange result
  • Previous by thread: Re: de-nesting complex nested lists
  • Next by thread: Re: de-nesting complex nested lists