Seven-sided dice from five-sided dice: Difference between revisions
Content added Content deleted
(Typo in D code) |
|||
Line 900: | Line 900: | ||
return x%7 + 1 |
return x%7 + 1 |
||
end</lang> |
end</lang> |
||
=={{header|Mathematica}}== |
|||
<lang Mathematica>sevenFrom5Dice := (tmp$ = 5*RandomInteger[{1, 5}] + RandomInteger[{1, 5}] - 6; |
|||
If [tmp$ < 21, 1 + Mod[tmp$ , 7], sevenFrom5Dice])</lang> |
|||
<pre>CheckDistribution[sevenFrom5Dice, 1000000, 5] |
|||
->Expected: 142857., Generated :{142206,142590,142650,142693,142730,143475,143656} |
|||
->"Flat"</pre> |
|||
=={{header|OCaml}}== |
=={{header|OCaml}}== |