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

MathGroup Archive 2009

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

Search the Archive

Replace elements in structured list

  • To: mathgroup at smc.vnet.net
  • Subject: [mg99062] Replace elements in structured list
  • From: replicatorzed at gmail.com
  • Date: Sat, 25 Apr 2009 04:52:34 -0400 (EDT)

Dear Group,

how would you solve this problem in an elegant and effective way?
My aim is to get a list of consecutive numbers, starting from 1, AND
to retain the structure of the original list as well.

In[49]:= data = {{1, {2, 2, 2, 2}, {2, 2, 2, 2}, 1}, {1, {2, 2, 2, 2},
{2, 2, 2, 2}, 1}};

c = 1;

Replace[data, _?NumberQ :> c++, \[Infinity]]

Out[51]= {{37, {38, 39, 40, 41}, {42, 43, 44, 45},
  46}, {47, {48, 49, 50, 51}, {52, 53, 54, 55}, 56}}

So the function should return a similar list, but starting at 1
instead of 37.
Now I must note that the original data can have fewer/more levels,
elements, etc.

Thank you in advance,
Istvan Zachar


  • Prev by Date: ContourPlot, equation and R.H. side of equation_Plotting problem
  • Next by Date: Is this solvable using Mathematica?
  • Previous by thread: Re: ContourPlot, equation and R.H. side of equation_Plotting problem
  • Next by thread: Re: Replace elements in structured list