Re: "Accumulate" with operator Times.

*To*: mathgroup at smc.vnet.net*Subject*: [mg114863] Re: "Accumulate" with operator Times.*From*: Matthias Bode <lvsaba at hotmail.com>*Date*: Tue, 21 Dec 2010 00:16:44 -0500 (EST)*References*: <iemq88$m7m$1@smc.vnet.net>,<4D0F217F.6050606@KevinMcCann.com>

Hola: I tried "Accumulate[{a, b, c}] /. Plus -> Times" before, it does work with {a,b,c}. BUT Accumulate[{2, 4, 5}] /. Plus -> Times yields {2, 6, 11}. It appears that I am relegated to my pedestrian In[97]:= lst02 = {2, 4, 5}; Table[Times @@ Take[lst02, n], {n, 1, Length[lst02]}] Out[97]= {2, 8, 40} Best regards, MATTHIAS BODE S 17.35775=B0, W 066.14577=B0 2'740 m AMSL. > Date: Mon, 20 Dec 2010 04:27:27 -0500 > From: kjm at KevinMcCann.com > To: lvsaba at hotmail.com > Subject: Re: "Accumulate" with operator Times. > To: comp-soft-sys-math-mathematica at moderators.isc.org > > How about > > Accumulate[{a, b, c}] /. Plus -> Times > > Kevin > > On 12/20/2010 12:40 AM, Matthias Bode wrote: > > Hola: > > > > In[5]:= Accumulate[{a, b, c}] yields > > > > Out[5]= {a, a + b, a + b + c} > > > > Is there a simple command, similar to Accumulate, that yields > > > > {a, a*b, a*b*c} ? > > > > Best regards, > > > > MATTHIAS BODE > > S 17.35775=B0, W 066.14577=B0 > > 2'740 m > > AMSL. > > =