Loops/With multiple ranges: Difference between revisions
no edit summary
m (→{{header|Phix}}: added syntax colouring the hard way) |
No edit summary |
||
Line 1,458:
prod=-793618560
</pre>
=={{header|Mathematica}} / {{header|Wolfram Language}}==
<lang Mathematica>prod = 1;
sum = 0;
x = 5;
y = -5;
z = -2;
one = 1;
three = 3;
seven = 7;
Do[
sum += Abs[j];
If[Abs[prod] < 2^27 \[And] j != 0, prod *= j];
,
{j,
Join[
Range[-three, 3^3, three],
Range[-seven, seven, x],
Range[555, 550 - y],
Range[22, -28, -three],
Range[1927, 1939],
Range[x, y, z],
Range[11^x, 11^x + one]
]
}
]
prod
sum</lang>
{{out}}
<pre>-793618560
348173</pre>
=={{header|Nim}}==
| |||