Seven-sided dice from five-sided dice: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: changed a comment.) |
No edit summary |
||
Line 1,570: | Line 1,570: | ||
side 6 had 143214 occurrences difference from expected: 357 |
side 6 had 143214 occurrences difference from expected: 357 |
||
side 7 had 142844 occurrences difference from expected: -13 |
side 7 had 142844 occurrences difference from expected: -13 |
||
</pre> |
|||
=={{header|Ring}}== |
|||
<lang ring> |
|||
# Project : Seven-sided dice from five-sided dice |
|||
# Date : 2018/02/02 |
|||
# Author : Gal Zsolt [~ CalmoSoft ~] |
|||
# Email : <calmosoft@gmail.com> |
|||
for n = 1 to 20 |
|||
d = dice7() |
|||
see "" + d + " " |
|||
next |
|||
see nl |
|||
func dice7() |
|||
x = dice5() * 5 + dice5() - 6 |
|||
if x > 20 |
|||
return dice7() |
|||
ok |
|||
dc = x % 7 + 1 |
|||
return dc |
|||
func dice5() |
|||
rnd = random(4) + 1 |
|||
return rnd |
|||
</lang> |
|||
Output: |
|||
<pre> |
|||
7 6 3 5 2 2 7 1 2 7 3 7 4 4 4 2 3 2 6 1 |
|||
</pre> |
</pre> |
||