Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Sum of list elements

• To: mathgroup at smc.vnet.net
• Subject: [mg49365] Re: Sum of list elements
• From: spam at husumtoften.invalid (Per Rønne)
• Date: Fri, 16 Jul 2004 06:06:48 -0400 (EDT)
• References: <200407130923.FAA10334@smc.vnet.net> <cd35pk$qc8$1@smc.vnet.net> <cd5o9d$av7$1@smc.vnet.net>
• Reply-to: spam at husumtoften.dk (Per Rønne)
• Sender: owner-wri-mathgroup at wolfram.com

Per Rønne <spam at husumtoften.invalid> wrote:

> > Total@A
> > Total[A]
> > 
> > Total is new in version 5.
> 
> Yes - isn't part of Teacher's Edition. Which uses 4.1 [Classic MacOS +
> Windows] and 4.2 [MacOS X].

But now, I've put the following in my init.m file:

Total[l_]:= Apply[Plus,l_]

In[1]:=
Total[{2,3}]
Out[1]=
5

And an erraneous version with two parameters:

In[56]:= l={1,{1,2},{3,4}}
Out[56]= {1,{1,2},{3,4}}

In[65]:= Total[l_,n_]:=
  Module[{li=l},
    For[i=n,i>=1,i=i-1,li=Apply[Plus,li];Print[li]];
    Return[li]]
In[58]:= l
Out[58]= {1,{1,2},{3,4}}

In[66]:= Total[l,2]
From In[66]:= {5,7}
From In[66]:= 12
Out[66]= 12


-- 
Per Erik Rønne

• Follow-Ups:
  • Re: Re: Sum of list elements
    • From: DrBob <drbob@bigfoot.com>

• References:
  • Re: Sum of list elements
    • From: "Ravinder Kumar B." <ravi@crest.ernet.in>