Seven-sided dice from five-sided dice: Difference between revisions
Seven-sided dice from five-sided dice (view source)
Revision as of 10:22, 14 August 2021
, 2 years ago→{{header|Mathematica}}
m (→{{header|REXX}}: added whitespace.) |
|||
Line 1,365:
</pre >
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>sevenFrom5Dice := (tmp$ = 5*RandomInteger[{1, 5}] + RandomInteger[{1, 5}] - 6;
If [tmp$ < 21, 1 + Mod[tmp$ , 7], sevenFrom5Dice])</lang>
Line 1,371:
->Expected: 142857., Generated :{142206,142590,142650,142693,142730,143475,143656}
->"Flat"</pre>
=={{header|Nim}}==
|