Seven-sided dice from five-sided dice: Difference between revisions
Seven-sided dice from five-sided dice (view source)
Revision as of 09:01, 2 February 2018
, 6 years agono edit summary
m (→{{header|REXX}}: changed a comment.) |
No edit summary |
||
Line 1,570:
side 6 had 143214 occurrences difference from expected: 357
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>
|