RE: To create {{},{},....{}} beyond $MaxRecursionLimit
- To: mathgroup at smc.vnet.net
- Subject: [mg46736] RE: [mg46719] To create {{},{},....{}} beyond $MaxRecursionLimit
- From: "Wolf, Hartmut" <Hartmut.Wolf at t-systems.com>
- Date: Thu, 4 Mar 2004 00:47:34 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
>-----Original Message----- >From: János [mailto:janos.lobb at yale.edu] To: mathgroup at smc.vnet.net >Sent: Wednesday, March 03, 2004 1:10 AM >To: mathgroup at smc.vnet.net >Subject: [mg46736] [mg46719] To create {{},{},....{}} beyond $MaxRecursionLimit > > >Hi, > >I am in need of creating a nested list in the form of {{},{},....{}} >of arbitrary length where none of the sublists have any >element in it. >I came up with > >lst = NestList[List, {},lengthlist - 1] > >For[i = 2, i <= > lengthlist, i++, flt = Table[{j}, {j, i, lengthlist}]; lst = >FlattenAt[lst, flt]] > >however it complains when lengthlen is over >$MaxRecursionLimit. I see >that I can change that Limit to Infinity, but I rather would not go >that route. It must be a better way without using NestList. > >Any good hint ? > >Thanks ahead, > >János >------------------------------------------------- >clear perl code is better than unclear awk code; but NOTHING comes >close to unclear perl code >http://www.faqs.org/faqs/computer-lang/awk/faq/ > János, In[2]:= PadLeft[{}, 5, {{}}] Out[2]= {{}, {}, {}, {}, {}} should do it. -- Hartmut