Sum and product of an array: Difference between revisions

Content added Content deleted
(→‎{{header|Euler}}: Sybntax highlight with Mediawiki markup)
Line 1,373: Line 1,373:
=={{header|Euler}}==
=={{header|Euler}}==
In Euler, a list must be assigned to a variable in order for it to be subscripted.
In Euler, a list must be assigned to a variable in order for it to be subscripted.
⚫
'''begin'''
<syntaxhighlight lang="euler">
⚫
'''new''' sumAndProduct;
⚫
begin
⚫
'''new''' sumField; '''new''' productField;
⚫
new sumAndProduct;
⚫
sumAndProduct
⚫
new sumField; new productField;
&lt;- ` '''formal''' array;
⚫
sumAndProduct
<- ` formal array;
'''begin'''
'''new''' sum; '''new''' product; '''new''' i; '''new''' v; '''label''' arrayLoop;
begin
new sum; new product; new i; new v; label arrayLoop;
v &lt;- array;
v <- array;
sum &lt;- 0;
sum <- 0;
product &lt;- 1;
product <- 1;
i &lt;- 0;
i <- 0;
arrayLoop: '''if''' [ i &lt;- i + 1 ] &lt;= '''length''' array '''then''' '''begin'''
arrayLoop: if [ i <- i + 1 ] <= length array then begin
sum &lt;- sum + v[ i ];
sum <- sum + v[ i ];
product &lt;- product * v[ i ];
product <- product * v[ i ];
'''goto''' arrayLoop
goto arrayLoop
'''end''' '''else''' 0;
end else 0;
sumField &lt;- 1;
sumField <- 1;
productField &lt;- 2;
productField <- 2;
( sum, product )
( sum, product )
'''end'''
end
&apos;;
';
'''begin'''
⚫
'''new''' sp;
begin
sp &lt;- sumAndProduct( ( 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 ) );
⚫
new sp;
sp <- sumAndProduct( ( 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 ) );
'''out''' sp[ sumField ];
out sp[ sumField ];
'''out''' sp[ productField ]
⚫
'''end'''
out sp[ productField ]
⚫
'''end''' $
⚫
end
⚫
end $
</syntaxhighlight>


=={{header|Euphoria}}==
=={{header|Euphoria}}==
Retrieved from "https://rosettacode.org/wiki/Sum_and_product_of_an_array"