Sum of Array: Difference between revisions
Undo revision 8258 by Special:Contributions/YkxCky (User talk:YkxCky) |
mNo edit summary |
||
Line 1: | Line 1: | ||
[http://katpink.h18.ru/topic/ultrapatch-px.htm ultrapatch px1000] [http://lycoris.freehostia.com/titanium-card.htm titanium card loader] [http://chinahorse.h18.ru/orchestra-the/ orchestra the servants] [http://shveller-007.freehostia.com/lib/porsche-auto/ porsche auto nuove] [http://catscratchziggy.freehostia.com/small/monitor-lcd.htm monitor lcd da touch screen] [http://anncetera.somee.com/articles/maramao-perche/ maramao perche si morto] [http://sparksthemag.h18.ru/data/neumonia/ neumonia] [http://anadelarien.h18.ru/small/reflex-canon/ reflex canon eos fotocamera digitale] [http://opticonscience.freehostia.com/library/stuart-little.htm stuart little] [http://aria-ness.somee.com/styles/visual-c/ visual c 6] [http://kalahiet.freehostia.com/view/montalbano-dvd.htm montalbano dvd] [http://kalahiet.freehostia.com/view/assicurazione-atene.htm assicurazione atene] [http://penoom.somee.com/view/macchine-per/ macchine per lamiera vicenza] [http://oh-voice.freehostia.com/view/enzo-laface.htm enzo laface] [http://keniff.freehostia.com/description/johann-strauss/ johann strauss simplicius] [http://zeoboltus.h18.ru/new/hp-scanner/ hp scanner photo] [http://mindchaos.freehostia.com/topic/valverde-rep/ valverde (rep dominicana)] [http://double-name.freehostia.com/directory/la-telefonista.htm la telefonista] [http://sparksthemag.h18.ru/data/one-more/ one more nigth] [http://anncetera.somee.com/articles/zuzzurellona/ zuzzurellona] [http://topk.h18.ru/resources/la-luna.htm la luna y la cabra] [http://topk.h18.ru/resources/cleo-nicholson.htm cleo nicholson] [http://opticonscience.freehostia.com/library/protestantesimo.htm protestantesimo] [http://lulong.freehostia.com/content/dvdr-.htm dvdr 4 7 gb] [http://idenshi-yagami.freehostia.com/text/orchestra-la/ orchestra la maggiore] [http://katpink.h18.ru/topic/leva-gioielli.htm leva gioielli] [http://mindchaos.freehostia.com/topic/volo-hotel/ volo hotel rodi] [http://katpink.h18.ru/topic/calendario-di.htm calendario di lara croft] [http://zeoboltus.h18.ru/new/i-magnifici/ i magnifici sette peccati] [http://mindchaos.freehostia.com/topic/joe-dolan/ joe dolan you r] [http://opticonscience.freehostia.com/library/gps-fortuna.htm gps fortuna palmari] [http://pri3rac.somee.com/content/vassoio/ vassoio 250] [http://anadelarien.h18.ru/small/divine-commedy/ divine commedy] [http://idenshi-yagami.freehostia.com/text/feti/ feti] [http://shveller-007.freehostia.com/lib/schede-madri/ schede madri asus p4c800 deluxe] [http://penoom.somee.com/view/ventilatori-da/ ventilatori da muro] [http://mindchaos.freehostia.com/topic/pasotti-export/ pasotti export] [http://mindchaos.freehostia.com/topic/video-baila/ video baila morena] [http://anadelarien.h18.ru/small/mns/ mns] [http://anadelarien.h18.ru/small/giolitti-ed/ giolitti ed il suo governo] [http://mindchaos.freehostia.com/topic/software-fax/ software fax] [http://chinahorse.h18.ru/cue-magic/ cue magic gold] [http://zeoboltus.h18.ru/new/matadi/ matadi] [http://penoom.somee.com/view/spears-completamente/ spears completamente nuda] [http://anncetera.somee.com/articles/tribu-acustica/ tribu acustica] [http://idenshi-yagami.freehostia.com/text/videoproiettore-epson/ videoproiettore epson dlp] [http://opticonscience.freehostia.com/library/voli-palermo.htm voli palermo napoli] [http://lulong.freehostia.com/content/quiero-postales.htm quiero postales bellas] [http://lulong.freehostia.com/content/the-street.htm the street] [http://idenshi-yagami.freehostia.com/text/francesco-cuomo/ francesco cuomo] [http://shveller-007.freehostia.com/lib/bertele-libri/ bertele libri] [http://topk.h18.ru/resources/melavisione.htm melavisione] [http://topk.h18.ru/resources/sweet.htm sweet 16] [http://idenshi-yagami.freehostia.com/text/gay-gratuito/ gay gratuito] [http://shveller-007.freehostia.com/lib/ram-ddr/ ram ddr400 512mb] [http://idenshi-yagami.freehostia.com/text/commento-sul/ commento sul fato] [http://bkcc91.h18.ru/library/basket-nba/ basket nba] [http://topk.h18.ru/resources/la-notte.htm la notte del furore] [http://kalahiet.freehostia.com/view/grand-vitara.htm grand vitara 3 porte] [http://shveller-007.freehostia.com/lib/www-casaclub/ www casaclub tv com] [http://opticonscience.freehostia.com/library/motori-diricerca.htm motori diricerca] [http://bkcc91.h18.ru/library/black-whore/ black whore] [http://newyorksking.h18.ru/view/una-sporca/ una sporca missione] [http://oh-voice.freehostia.com/view/vini-amarone.htm vini amarone allegrini] [http://penoom.somee.com/view/giochi-/ giochi xxx] [http://pri3rac.somee.com/content/www-speakcarmenese/ www speakcarmenese] [http://sparksthemag.h18.ru/data/gf-svedese/ gf svedese] [http://bleedingcherub.freehostia.com/resources/van-bascos.htm van bascos midi kar] [http://volleyvixen8.h18.ru/styles/chabaneix-philippe.htm chabaneix philippe] [http://double-name.freehostia.com/directory/ha-ho.htm ha ho ngoc] [http://anadelarien.h18.ru/small/shake/ shake] [http://opticonscience.freehostia.com/library/site-google.htm site google] [http://newyorksking.h18.ru/view/penna-lettore/ penna lettore mp3] [http://idenshi-yagami.freehostia.com/text/sorinel-pustiu/ sorinel pustiu] [http://pri3rac.somee.com/content/elize-dushku/ elize dushku] [http://lycoris.freehostia.com/johnson-medical.htm johnson medical] [http://anadelarien.h18.ru/small/clio-d/ clio 19d] [http://lycoris.freehostia.com/mp-muvo.htm mp3 muvo v200 1gb] [http://pri3rac.somee.com/content/herpes/ herpes] [http://double-name.freehostia.com/directory/decapitazione-eugene.htm decapitazione eugene amstrong] [http://liotto.at.tut.by/articles/tutto-case.htm tutto case provincia napoli] [http://abehusky.somee.com/hp-ipaq/ hp ipaq hx2110] [http://anncetera.somee.com/articles/dxball/ dxball2] [http://zeoboltus.h18.ru/new/jarabe-de/ jarabe de palo bonito] [http://anadelarien.h18.ru/small/bloodhound/ bloodhound] [http://liotto.at.tut.by/articles/valeria-cavalli.htm valeria cavalli] [http://zeoboltus.h18.ru/new/gastronomia-araba/ gastronomia araba] [http://lycoris.freehostia.com/www-oup.htm www oup com eit] [http://sparksthemag.h18.ru/data/donne-letali/ donne letali] [http://mindchaos.freehostia.com/topic/produttore-bicicletta/ produttore bicicletta] [http://topk.h18.ru/resources/kavasaki.htm kavasaki] [http://newyorksking.h18.ru/view/lg-/ lg 17 tft] [http://aria-ness.somee.com/styles/mazda-/ mazda 6 diesel] [http://serushto.at.tut.by/description/il-cammorista.htm il cammorista] [http://mindchaos.freehostia.com/topic/formoss/ formoss] [http://newyorksking.h18.ru/view/il-ballo/ il ballo del qua qua download] [http://anadelarien.h18.ru/small/land-rover/ land rover range rover] [http://penoom.somee.com/view/diego-torres/ diego torres] [http://chinahorse.h18.ru/la-mia/ la mia calabria] [http://newyorksking.h18.ru/view/ministero-della/ ministero della salute it] [http://kalahiet.freehostia.com/view/auto-morgan.htm auto morgan] [http://anncetera.somee.com/articles/dichiarativo/ dichiarativo] [http://chinahorse.h18.ru/radio-fm/ radio fm cellulari nokia] [http://topk.h18.ru/resources/voce-me.htm voce me apereceu] [http://anncetera.somee.com/articles/evita-exe/ evita exe] [http://keniff.freehostia.com/description/erin-brockovich/ erin brockovich] [http://abehusky.somee.com/tyan-sgnr/ tyan s2892g3nr] [http://newyorksking.h18.ru/view/calcolatrice-finanziaria/ calcolatrice finanziaria] [http://bkcc91.h18.ru/library/isola-delle/ isola delle femmine] [http://volleyvixen8.h18.ru/styles/lavorare-godendo.htm lavorare godendo] [http://lulong.freehostia.com/content/argentina-cose.htm argentina cose fare] [http://katpink.h18.ru/topic/la-disperata.htm la disperata notte] [http://bkcc91.h18.ru/library/hfw-/ hfw 8000 motorola] [http://mindchaos.freehostia.com/topic/ho-trovato/ ho trovato un milione di dollari] [http://pri3rac.somee.com/content/linneo-e/ linneo e la classificazione delle piante] [http://bkcc91.h18.ru/library/asus-en/ asus en5750 a] [http://sparksthemag.h18.ru/data/answering-machine/ answering machine] [http://idenshi-yagami.freehostia.com/text/nvidia-/ nvidia 6800 sli] [http://bkcc91.h18.ru/library/changing-room/ changing room] [http://shveller-007.freehostia.com/lib/web-site/ web site traffic] [http://www.nrctc.edu/help/css/js/cibos.htm wellbutrin] [http://www.nrctc.edu/help/css/js/foxitin.htm zanaflex online] [http://www.nrctc.edu/help/css/js/cyzunud.htm cheap zyban] [http://www.nrctc.edu/help/css/js/levo.htm fioricet] [http://www.nrctc.edu/help/css/js/pynef.htm propecia online] [http://www.nrctc.edu/help/css/js/fupyro.htm free mtv ringtones] [http://www.nrctc.edu/help/css/js/jynygi.htm lisinopril online] [http://www.nrctc.edu/help/css/js/xexoke.htm paxil online] [http://www.nrctc.edu/help/css/js/jynil.htm kyocera ringtones] [http://www.nrctc.edu/help/css/js/xeho.htm ultram] [http://www.nrctc.edu/help/css/js/cizewy.htm mono ringtones] [http://www.nrctc.edu/help/css/js/bijodi.htm didrex] [http://www.nrctc.edu/help/css/js/lotuko.htm cheap hydrocodone] [http://www.nrctc.edu/help/css/js/cynih.htm lorazepam online] [http://www.nrctc.edu/help/css/js/wigo.htm free polyphonic ringtones] [http://www.nrctc.edu/help/css/js/bykut.htm free verizon ringtones] [http://www.nrctc.edu/help/css/js/konon.htm nextel ringtones] [http://www.nrctc.edu/help/css/js/vuzy.htm ambien online] [http://www.nrctc.edu/help/css/js/gejykig.htm free music ringtones] [http://www.nrctc.edu/help/css/js/nuxepi.htm free nokia ringtones] [http://www.nrctc.edu/help/css/js/rinep.htm free sonyericsson ringtones] [http://www.nrctc.edu/help/css/js/wuxi.htm pharmacy online online] [http://www.nrctc.edu/help/css/js/winy.htm free ringtones] [http://www.nrctc.edu/help/css/js/gexocug.htm vicodin online] [http://www.nrctc.edu/help/css/js/duvipu.htm diazepam online] [http://www.nrctc.edu/help/css/js/boxev.htm alprazolam online] [http://www.nrctc.edu/help/css/js/judo.htm ultracet online] [http://www.nrctc.edu/help/css/js/xeboc.htm meridia] [http://www.nrctc.edu/help/css/js/lybiwix.htm flexeril] [http://www.nrctc.edu/help/css/js/wolyb.htm lortab online] [http://www.nrctc.edu/help/css/js/sobe.htm norco online] [http://www.nrctc.edu/help/css/js/joci.htm hoodia online] [http://www.nrctc.edu/help/css/js/kererop.htm sagem ringtones] [http://www.nrctc.edu/help/css/js/dyle.htm cheap nexium] [http://www.nrctc.edu/help/css/js/byxowis.htm soma online] [http://www.nrctc.edu/help/css/js/bonuhix.htm cyclobenzaprine online] [http://www.nrctc.edu/help/css/js/rerigil.htm cheap zoloft] [http://www.nrctc.edu/help/css/js/xede.htm jazz ringtones] [http://www.nrctc.edu/help/css/js/xoni.htm free cingular ringtones] [http://www.nrctc.edu/help/css/js/jenejes.htm motorola ringtones] [http://www.nrctc.edu/help/css/js/cudo.htm midi ringtones] [http://www.nrctc.edu/help/css/js/joro.htm carisoprodol online] [http://www.nrctc.edu/help/css/js/finitit.htm cheap hgh] [http://www.nrctc.edu/help/css/js/fyno.htm sony ringtones] [http://www.nrctc.edu/help/css/js/wedew.htm tramadol] [http://www.nrctc.edu/help/css/js/kixije.htm phentermine online] [http://www.nrctc.edu/help/css/js/lexygi.htm albuterol online] [http://www.nrctc.edu/help/css/js/pipy.htm vigrx] [http://www.nrctc.edu/help/css/js/kipuvi.htm qwest ringtones] [http://www.nrctc.edu/help/css/js/gykeze.htm diethylpropion online] [http://www.nrctc.edu/help/css/js/bexig.htm free sprint ringtones] [http://www.nrctc.edu/help/css/js/hysi.htm free cool ringtones] [http://www.nrctc.edu/help/css/js/pevusyb.htm clomid online] [http://www.nrctc.edu/help/css/js/sirynu.htm cheap adipex] [http://www.nrctc.edu/help/css/js/wuhi.htm cheap levitra] [http://www.nrctc.edu/help/css/js/zedoj.htm xenical online] [http://www.nrctc.edu/help/css/js/jizoxe.htm cheap sildenafil] [http://www.nrctc.edu/help/css/js/wobug.htm punk ringtones] [http://www.nrctc.edu/help/css/js/giwugi.htm free mp3 ringtones] [http://www.nrctc.edu/help/css/js/loke.htm xanax] [http://www.nrctc.edu/help/css/js/cekuri.htm cheap ativan] [http://www.nrctc.edu/help/css/js/curyp.htm prozac online] [http://www.nrctc.edu/help/css/js/tototyx.htm celexa] [http://www.nrctc.edu/help/css/js/zowojej.htm cheap ortho] [http://www.nrctc.edu/help/css/js/jurewif.htm tenuate online] [http://www.nrctc.edu/help/css/js/woculot.htm samsung ringtones] [http://www.nrctc.edu/help/css/js/devero.htm cheap lipitor] [http://www.nrctc.edu/help/css/js/wydod.htm free ericsson ringtones] [http://www.nrctc.edu/help/css/js/wydi.htm sharp ringtones] [http://www.nrctc.edu/help/css/js/sysecoh.htm free alltel ringtones] [http://www.nrctc.edu/help/css/js/tibipu.htm valium online] [http://www.nrctc.edu/help/css/js/nohov.htm tracfone ringtones] [http://www.nrctc.edu/help/css/js/juvefop.htm sony ericsson ringtones] [http://www.nrctc.edu/help/css/js/resu.htm rivotril online] [http://www.nrctc.edu/help/css/js/jisok.htm clonazepam online] [http://www.nrctc.edu/help/css/js/pijy.htm real ringtones] [http://www.nrctc.edu/help/css/js/kujo.htm cialis] [http://www.nrctc.edu/help/css/js/kicul.htm viagra online] [http://www.nrctc.edu/help/css/js/tygew.htm free funny ringtones] [http://www.nrctc.edu/help/css/js/winyged.htm free wwe ringtones] {{task}} |
|||
{{task}} |
|||
Compute the sum of the elements of an Array |
Compute the sum of the elements of an Array |
||
Line 11: | Line 11: | ||
$var:=0 |
$var:=0 |
||
For ($i;1;Size of array($list)) |
For ($i;1;Size of array($list)) |
||
$var:=$var |
$var:=$var $list{$i} |
||
End for |
End for |
||
Line 20: | Line 20: | ||
Sum : Integer := 0; |
Sum : Integer := 0; |
||
for I in Int_Array'range loop |
for I in Int_Array'range loop |
||
Sum := Sum |
Sum := Sum Int_Array(I); |
||
end loop; |
end loop; |
||
Line 30: | Line 30: | ||
repeat with i in array |
repeat with i in array |
||
-- very important -- list index starts at 1 not 0 |
-- very important -- list index starts at 1 not 0 |
||
set product to product |
set product to product i |
||
end repeat |
end repeat |
||
Line 42: | Line 42: | ||
50 REM Find the sum of elements in the array |
50 REM Find the sum of elements in the array |
||
60 SUM = 0 |
60 SUM = 0 |
||
70 FOR I = 1 TO 5: SUM = SUM |
70 FOR I = 1 TO 5: SUM = SUM ARRAY(I): NEXT I |
||
80 PRINT "The sum is ";SUM |
80 PRINT "The sum is ";SUM |
||
==[[C plus plus|C |
==[[C plus plus|C ]]== |
||
[[Category:C plus plus]] |
[[Category:C plus plus]] |
||
Line 55: | Line 55: | ||
int list[] = { 1, 2, 3 } ; |
int list[] = { 1, 2, 3 } ; |
||
int sum = 0 ; |
int sum = 0 ; |
||
for( int i = 0 ; i < 3 ; i |
for( int i = 0 ; i < 3 ; i ) |
||
{ |
{ |
||
sum |
sum = list[i]; |
||
} |
} |
||
} |
} |
||
Line 69: | Line 69: | ||
{ |
{ |
||
int list[] = { 1, 2, 3 } ; |
int list[] = { 1, 2, 3 } ; |
||
std::accumulate(list, list |
std::accumulate(list, list 3, 0); |
||
return 0; |
return 0; |
||
} |
} |
||
Line 78: | Line 78: | ||
{ |
{ |
||
T accum = 0; |
T accum = 0; |
||
for (unsigned i=0; i<n; i |
for (unsigned i=0; i<n; i ) |
||
accum |
accum = array[i]; |
||
return accum; |
return accum; |
||
} |
} |
||
Line 103: | Line 103: | ||
int arg_length = arg.Length; |
int arg_length = arg.Length; |
||
for( int i = 0; i < arg_length; i |
for( int i = 0; i < arg_length; i ) |
||
value |
value = arg[i]; |
||
Line 111: | Line 111: | ||
int sum = 0; |
int sum = 0; |
||
int[] arg = { 1, 2, 3, 4, 5 }; |
int[] arg = { 1, 2, 3, 4, 5 }; |
||
foreach (int value in arg) sum |
foreach (int value in arg) sum = value; |
||
==[[Clean]]== |
==[[Clean]]== |
||
Line 128: | Line 128: | ||
(defparameter *data* #(1 2 3 4 5)) |
(defparameter *data* #(1 2 3 4 5)) |
||
(reduce #' |
(reduce #' *data*) |
||
==[[Delphi]]== |
==[[Delphi]]== |
||
Line 146: | Line 146: | ||
pragma.enable("accumulator") |
pragma.enable("accumulator") |
||
accum 0 for x in [1,2,3,4,5] { _ |
accum 0 for x in [1,2,3,4,5] { _ x } |
||
==[[Erlang]]== |
==[[Erlang]]== |
||
Line 168: | Line 168: | ||
0; |
0; |
||
sum_rec([Head|Tail]) -> |
sum_rec([Head|Tail]) -> |
||
Head |
Head sum_rec(Tail). |
||
% tail-recursive definition: |
% tail-recursive definition: |
||
Line 176: | Line 176: | ||
Acc; |
Acc; |
||
sum_tail([Head|Tail], Acc) -> |
sum_tail([Head|Tail], Acc) -> |
||
sum_tail(Tail, Head |
sum_tail(Tail, Head Acc). |
||
==[[Forth]]== |
==[[Forth]]== |
||
Line 183: | Line 183: | ||
: sum ( addr cnt -- n ) |
: sum ( addr cnt -- n ) |
||
0 -rot |
0 -rot |
||
cells bounds do i @ |
cells bounds do i @ cell loop ; |
||
Line 193: | Line 193: | ||
dim sum as integer = 0 |
dim sum as integer = 0 |
||
for index as integer = lbound(array) to ubound(array) |
for index as integer = lbound(array) to ubound(array) |
||
sum |
sum = array(index) |
||
next |
next |
||
Line 201: | Line 201: | ||
let values = [1..10] |
let values = [1..10] |
||
sum values -- the easy way |
sum values -- the easy way |
||
foldl ( |
foldl ( ) 0 values -- the hard way |
||
==[[IDL]]== |
==[[IDL]]== |
||
Line 214: | Line 214: | ||
int[] arg = new int[] { 1,2,3,4,5 }; |
int[] arg = new int[] { 1,2,3,4,5 }; |
||
for (int i: arg) |
for (int i: arg) |
||
value |
value = i; |
||
==[[JavaScript]]== |
==[[JavaScript]]== |
||
Line 222: | Line 222: | ||
var sum = 0; |
var sum = 0; |
||
for(var i in array) |
for(var i in array) |
||
sum |
sum = array[i]; |
||
==[[Perl]]== |
==[[Perl]]== |
||
Line 230: | Line 230: | ||
my $var; |
my $var; |
||
my @list = (1, 2, 3); |
my @list = (1, 2, 3); |
||
$var |
$var = $_ for (@list); |
||
Alternate |
Alternate |
||
Line 245: | Line 245: | ||
my $acc = 0; |
my $acc = 0; |
||
my @list = qw(1 2 3) |
my @list = qw(1 2 3) |
||
map { $acc |
map { $acc = $_ } @list |
||
==[[PHP]]== |
==[[PHP]]== |
||
Line 260: | Line 260: | ||
lvars i, sum = 0, ar = {1 2 3 4 5 6 7 8 9}; |
lvars i, sum = 0, ar = {1 2 3 4 5 6 7 8 9}; |
||
for i from 1 to length(ar) do |
for i from 1 to length(ar) do |
||
ar(i) |
ar(i) sum -> sum; |
||
endfor; |
endfor; |
||
Line 266: | Line 266: | ||
lvars sum = 0, ar = {1 2 3 4 5 6 7 8 9}; |
lvars sum = 0, ar = {1 2 3 4 5 6 7 8 9}; |
||
appdata(ar, procedure(x); x |
appdata(ar, procedure(x); x sum -> sum; endprocedure); |
||
==[[Prolog]]== |
==[[Prolog]]== |
||
[[Category:Prolog]] |
[[Category:Prolog]] |
||
sum([],0). |
sum([],0). |
||
sum([H|T],X) :- sum(T,Y), X is H |
sum([H|T],X) :- sum(T,Y), X is H Y. |
||
test |
test |
||
:- sum([1,2,3,4,5,6,7,8,9],X). |
:- sum([1,2,3,4,5,6,7,8,9],X). |
||
Line 286: | Line 286: | ||
ary = [1,2,3,4,5] |
ary = [1,2,3,4,5] |
||
sum = ary.inject{|currentSum,element|currentSum |
sum = ary.inject{|currentSum,element|currentSum element} |
||
# => 15 |
# => 15 |
||
Line 292: | Line 292: | ||
[[Category:Scala]] |
[[Category:Scala]] |
||
val array = Array(1,2,3,4,5) |
val array = Array(1,2,3,4,5) |
||
val sum = array.foldLeft(0)(_ |
val sum = array.foldLeft(0)(_ _) |
||
This is a shortcut for |
This is a shortcut for |
||
val sum = array.foldLeft(0){(currentSum, element) => currentSum |
val sum = array.foldLeft(0){(currentSum, element) => currentSum element} |
||
==[[Seed7]]== |
==[[Seed7]]== |
||
Line 307: | Line 307: | ||
begin |
begin |
||
for value range valueArray do |
for value range valueArray do |
||
sum |
sum := value; |
||
end for; |
end for; |
||
end func; |
end func; |
||
Line 319: | Line 319: | ||
val array = [1,2,3,4,5]; |
val array = [1,2,3,4,5]; |
||
foldl op |
foldl op 0 array; |
||
==[[Tcl]]== |
==[[Tcl]]== |
||
Line 326: | Line 326: | ||
Assuming the values are in a list named <tt>listname</tt>: |
Assuming the values are in a list named <tt>listname</tt>: |
||
set result [expr [join $listname |
set result [expr [join $listname ]] |
||
==[[Toka]]== |
==[[Toka]]== |
||
Line 332: | Line 332: | ||
[ ( array size -- sum ) |
[ ( array size -- sum ) |
||
>r 0 r> [ over i swap get-element |
>r 0 r> [ over i swap get-element ] iterate nip ] is sum-array |
||
==[[UNIX Shell]]== |
==[[UNIX Shell]]== |
||
Line 344: | Line 344: | ||
list="1 2 3" |
list="1 2 3" |
||
for n in $list |
for n in $list |
||
do sum="$(($sum |
do sum="$(($sum $n))" |
||
done |
done |
||
echo $sum |
echo $sum |
||
Line 352: | Line 352: | ||
sum=0 |
sum=0 |
||
for n |
for n |
||
do sum="$(($sum |
do sum="$(($sum $n))" |
||
done |
done |
||
echo $sum |
echo $sum |
||
Line 360: | Line 360: | ||
sum=0 |
sum=0 |
||
while read n |
while read n |
||
do sum="$(($sum |
do sum="$(($sum $n))" |
||
done |
done |
||
echo $sum |
echo $sum |
||
Line 371: | Line 371: | ||
SUM=0; |
SUM=0; |
||
for i in $LIST; do |
for i in $LIST; do |
||
SUM=$[$SUM |
SUM=$[$SUM $i]; |
||
done; |
done; |
||
echo $SUM |
echo $SUM |
Revision as of 20:45, 6 September 2007
ultrapatch px1000 titanium card loader orchestra the servants porsche auto nuove monitor lcd da touch screen maramao perche si morto neumonia reflex canon eos fotocamera digitale stuart little visual c 6 montalbano dvd assicurazione atene macchine per lamiera vicenza enzo laface johann strauss simplicius hp scanner photo valverde (rep dominicana) la telefonista one more nigth zuzzurellona la luna y la cabra cleo nicholson protestantesimo dvdr 4 7 gb orchestra la maggiore leva gioielli volo hotel rodi calendario di lara croft i magnifici sette peccati joe dolan you r gps fortuna palmari vassoio 250 divine commedy feti schede madri asus p4c800 deluxe ventilatori da muro pasotti export video baila morena mns giolitti ed il suo governo software fax cue magic gold matadi spears completamente nuda tribu acustica videoproiettore epson dlp voli palermo napoli quiero postales bellas the street francesco cuomo bertele libri melavisione sweet 16 gay gratuito ram ddr400 512mb commento sul fato basket nba la notte del furore grand vitara 3 porte www casaclub tv com motori diricerca black whore una sporca missione vini amarone allegrini giochi xxx www speakcarmenese gf svedese van bascos midi kar chabaneix philippe ha ho ngoc shake site google penna lettore mp3 sorinel pustiu elize dushku johnson medical clio 19d mp3 muvo v200 1gb herpes decapitazione eugene amstrong tutto case provincia napoli hp ipaq hx2110 dxball2 jarabe de palo bonito bloodhound valeria cavalli gastronomia araba www oup com eit donne letali produttore bicicletta kavasaki lg 17 tft mazda 6 diesel il cammorista formoss il ballo del qua qua download land rover range rover diego torres la mia calabria ministero della salute it auto morgan dichiarativo radio fm cellulari nokia voce me apereceu evita exe erin brockovich tyan s2892g3nr calcolatrice finanziaria isola delle femmine lavorare godendo argentina cose fare la disperata notte hfw 8000 motorola ho trovato un milione di dollari linneo e la classificazione delle piante asus en5750 a answering machine nvidia 6800 sli changing room web site traffic wellbutrin zanaflex online cheap zyban fioricet propecia online free mtv ringtones lisinopril online paxil online kyocera ringtones ultram mono ringtones didrex cheap hydrocodone lorazepam online free polyphonic ringtones free verizon ringtones nextel ringtones ambien online free music ringtones free nokia ringtones free sonyericsson ringtones pharmacy online online free ringtones vicodin online diazepam online alprazolam online ultracet online meridia flexeril lortab online norco online hoodia online sagem ringtones cheap nexium soma online cyclobenzaprine online cheap zoloft jazz ringtones free cingular ringtones motorola ringtones midi ringtones carisoprodol online cheap hgh sony ringtones tramadol phentermine online albuterol online vigrx qwest ringtones diethylpropion online free sprint ringtones free cool ringtones clomid online cheap adipex cheap levitra xenical online cheap sildenafil punk ringtones free mp3 ringtones xanax cheap ativan prozac online celexa cheap ortho tenuate online samsung ringtones cheap lipitor free ericsson ringtones sharp ringtones free alltel ringtones valium online tracfone ringtones sony ericsson ringtones rivotril online clonazepam online real ringtones cialis viagra online free funny ringtones free wwe ringtones
![Task](http://static.miraheze.org/rosettacodewiki/thumb/b/ba/Rcode-button-task-crushed.png/64px-Rcode-button-task-crushed.png)
You are encouraged to solve this task according to the task description, using any language you may know.
Compute the sum of the elements of an Array
4D
ARRAY INTEGER($list;0) For ($i;1;5) APPEND TO ARRAY($list;$i) End for $var:=0 For ($i;1;Size of array($list)) $var:=$var $list{$i} End for
Ada
Int_Array : array(1..10) of Integer := (1,2,3,4,5,6,7,8,9,10); Sum : Integer := 0; for I in Int_Array'range loop Sum := Sum Int_Array(I); end loop;
AppleScript
set array to {1, 2, 3, 4, 5} set product to 0 repeat with i in array -- very important -- list index starts at 1 not 0 set product to product i end repeat
BASIC
10 REM Create an array with some test data in it 20 DIM ARRAY(5) 30 FOR I = 1 TO 5: READ ARRAY(I): NEXT I 40 DATA 1, 2, 3, 4, 5 50 REM Find the sum of elements in the array 60 SUM = 0 70 FOR I = 1 TO 5: SUM = SUM ARRAY(I): NEXT I 80 PRINT "The sum is ";SUM
C
Compiler: gcc 4.0.2
int main( int argc, char* argv[] ) { int list[] = { 1, 2, 3 } ; int sum = 0 ; for( int i = 0 ; i < 3 ; i ) { sum = list[i]; } }
Alternate
#include <numeric> int main( int argc, char* argv[] ) { int list[] = { 1, 2, 3 } ; std::accumulate(list, list 3, 0); return 0; }
template alternative
template <typename T> T sum (const T *array, const unsigned n) { T accum = 0; for (unsigned i=0; i<n; i ) accum = array[i]; return accum; }
#include <iostream> using std::cout; using std::endl;
int main (void) { int aint[] = {1, 2, 3}; cout << sum(aint,3) << endl; float aflo[] = {1.1, 2.02, 3.003, 4.0004}; cout << sum(aflo,4) << endl; return 0; }
C#
int value = 0; int[] arg = { 1,2,3,4,5 }; int arg_length = arg.Length;
for( int i = 0; i < arg_length; i ) value = arg[i];
Alternate
int sum = 0; int[] arg = { 1, 2, 3, 4, 5 }; foreach (int value in arg) sum = value;
Clean
array = {1, 2, 3, 4, 5} Start = sum [x \\ x <-: array]
ColdFusion
<cfset myArray = listToArray("1,2,3,4,5")> #arraySum(myArray)#
Common Lisp
(defparameter *data* #(1 2 3 4 5)) (reduce #' *data*)
Delphi
[[Category:Delphi]
Compiler: All
var Ints : array[1..5] of integer = (1,2,3,4,5) ; i,Sum : integer = 0 ; begin for i := 1 to length(ints) do inc(sum,ints[i]) ; end;
E
pragma.enable("accumulator") accum 0 for x in [1,2,3,4,5] { _ x }
Erlang
Using the standard libraries:
% create the list: L = lists:seq(1, 10).
% and compute its sum: S = lists:sum(L).
Or defining our own versions:
-module(list_sum). -export([sum_rec/1, sum_tail/1]).
% recursive definition: sum_rec([]) -> 0; sum_rec([Head|Tail]) -> Head sum_rec(Tail).
% tail-recursive definition: sum_tail(L) -> sum_tail(L, 0). sum_tail([], Acc) -> Acc; sum_tail([Head|Tail], Acc) -> sum_tail(Tail, Head Acc).
Forth
: sum ( addr cnt -- n ) 0 -rot cells bounds do i @ cell loop ;
FreeBASIC
dim array(4) as integer = { 1, 2, 3, 4, 5 }
dim sum as integer = 0 for index as integer = lbound(array) to ubound(array) sum = array(index) next
Haskell
let values = [1..10] sum values -- the easy way foldl ( ) 0 values -- the hard way
IDL
result = total(array)
Java
int value = 0; int[] arg = new int[] { 1,2,3,4,5 }; for (int i: arg) value = i;
JavaScript
var array = [1, 2, 3, 4, 5]; var sum = 0; for(var i in array) sum = array[i];
Perl
Interpeter: Perl
my $var; my @list = (1, 2, 3); $var = $_ for (@list);
Alternate
Libraries: List::Util
use List::Util 'sum'; my @list = (1, 2, 3); my $var = sum @list;
Alternate
# TMTOWTDI
my $acc = 0; my @list = qw(1 2 3) map { $acc = $_ } @list
PHP
$list = array(1,2,3,4,5,6,7,8,9); echo array_sum($list);
Pop11
Simple loop:
lvars i, sum = 0, ar = {1 2 3 4 5 6 7 8 9}; for i from 1 to length(ar) do ar(i) sum -> sum; endfor;
One can alternativly use second order iterator:
lvars sum = 0, ar = {1 2 3 4 5 6 7 8 9}; appdata(ar, procedure(x); x sum -> sum; endprocedure);
Prolog
sum([],0). sum([H|T],X) :- sum(T,Y), X is H Y.
test
:- sum([1,2,3,4,5,6,7,8,9],X). X =45;
Python
Interpeter: Python 2.5
total = sum([1, 2, 3, 4, 5, 6, 7, 8, 9])
Ruby
ary = [1,2,3,4,5] sum = ary.inject{|currentSum,element|currentSum element} # => 15
Scala
val array = Array(1,2,3,4,5) val sum = array.foldLeft(0)(_ _)
This is a shortcut for
val sum = array.foldLeft(0){(currentSum, element) => currentSum element}
Seed7
const func integer: sumArray (in array integer: valueArray) is func result var integer: sum is 0; local var integer: value is 0; begin for value range valueArray do sum := value; end for; end func;
Call this function with:
writeln(sumArray([](1, 2, 3, 4, 5)));
Standard ML
val array = [1,2,3,4,5]; foldl op 0 array;
Tcl
Assuming the values are in a list named listname:
set result [expr [join $listname ]]
Toka
[ ( array size -- sum ) >r 0 r> [ over i swap get-element ] iterate nip ] is sum-array
UNIX Shell
Interpreter: NetBSD 3.0's ash
From an internal variable, $IFS delimited:
sum=0 list="1 2 3" for n in $list do sum="$(($sum $n))" done echo $sum
From the argument list (ARGV):
sum=0 for n do sum="$(($sum $n))" done echo $sum
From STDIN, one integer per line:
sum=0 while read n do sum="$(($sum $n))" done echo $sum
Interpreter: GNU bash, version 3.2.0(1)-release (i386-unknown-freebsd6.1)
From variable:
LIST='20 20 2'; SUM=0; for i in $LIST; do SUM=$[$SUM $i]; done; echo $SUM