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