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

Re: reducing the time of constructing a List

• To: mathgroup at smc.vnet.net
• Subject: [mg57595] Re: reducing the time of constructing a List
• From: "Kezhao Zhang" <kezhao.zhang at gmail.com>
• Date: Wed, 1 Jun 2005 06:04:32 -0400 (EDT)
• References: <d7haeo$3pa$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

Don't use the For loop, use either Map or pattern matching:

lst=If[#==1,1,0]&/@Table[Random[Integer, {0, 10}], {100000}];

lst=Table[Random[Integer, {0, 10}], {100000}]/._?(#!=1&):>0;

Hope this helps.

K. Zhang