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

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