Anonymous user
Seven-sided dice from five-sided dice: Difference between revisions
Seven-sided dice from five-sided dice (view source)
Revision as of 00:08, 28 December 2018
, 5 years ago→{{header|M2000 Interpreter}}
Line 1,245:
end</lang>
=={{header|M2000 Interpreter}}==
We make a stack object (is reference type) and pass it as a closure to dice7 lambda function. For each dice7 we pop the top value of stack, and we add a fresh dice5 (random(1,5)) as last value of stack, so stack used as FIFO. Each time z has the sum of 7 random values.
We check for uniform numbers using +-5% from expected value.
<lang M2000 Interpreter>
Module CheckIt {
Def long i, calls, max, min
Line 1,303 ⟶ 1,299:
1
2
3
4
5
6
7
min=
Verify Uniform:uniform
</pre >
| |||