Jump to content

Sum and product of an array: Difference between revisions

Sum and product of an array (view source)

Revision as of 15:09, 9 November 2023

169 bytes added ,  6 months ago
→‎{{header|Euler}}: Sybntax highlight with Mediawiki markup
(→‎{{header|Euler}}: Sybntax highlight with Mediawiki markup)
Line 1,373:
=={{header|Euler}}==
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;v new product; new i; new v &lt;- label arrayLooparray;
v sum <&lt;- array0;
sum product <&lt;- 01;
product <i &lt;- 10;
arrayLoop: '''if''' [ i &lt;- i + 1 ] &lt;= '''length''' array <-'''then''' 0;'''begin'''
arrayLoop: if [ i < sum &lt;- i + 1 ] <=sum length+ arrayv[ theni begin];
sum product <&lt;- product sum +* v[ i ];
product <-'''goto''' product * v[ i ];arrayLoop
'''end''' '''else''' goto arrayLoop0;
end elsesumField 0 &lt;- 1;
sumField productField <&lt;- 12;
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 <-'''out''' sumAndProduct( ( 1, 2, 3, 4, 5, 6,sp[ 7,sumField 8, 9, 10 ) )];
'''out''' sp[ sumField productField ];
'''end'''▼
out sp[ productField ]
'''end''' $▼
▲ end
▲end $
</syntaxhighlight>
 
=={{header|Euphoria}}==
Tigerofdarkness
3,043

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/348675"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information