Loops/With multiple ranges: Difference between revisions
Content added Content deleted
m (→{{header|Phix}}: added syntax colouring the hard way) |
No edit summary |
||
Line 1,458: | Line 1,458: | ||
prod=-793618560 |
prod=-793618560 |
||
</pre> |
</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}}== |
=={{header|Nim}}== |