Re: Particular structure

*To*: mathgroup at smc.vnet.net*Subject*: [mg33625] Re: [mg33545] Particular structure*From*: Yas <yast at optushome.com.au>*Date*: Wed, 3 Apr 2002 18:08:47 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

Hi, Thanks to all the replies to the problem I posted earlier on achieving a particular structure. All the solutions provided deal with the problem adequately but because my lists are fairly large I find myself running out of memory. For example, using Outer on lists where x > 500 and y > 100 gets me into trouble very quickly. The other draw back is that the time for calculation gets long. In an effort to overcome these undesirable properties, Allan Hayes has suggested the following construct, x = y = Table[i + 1, {i, 1, 400}]; f = Plus; F = Times @@ # &; Table[Function[kk, ReleaseHold[#]][y[[i]]], {i, Length[y]}] &[ Hold[F][f[#, kk, z] & /@ x]]; // Timing {5.81667 Second, Null} This construct is more efficient than the ones I've constructed previously in that the MaxMemoryUsed is reduced by a whopping 93% and the time for evaluation reduced by half compared to those using Outer and Map[Map... I wonder if there are any other suggestions to speeding things up even more? Cheers Yas