Anonymous user
Seven-sided dice from five-sided dice: Difference between revisions
Seven-sided dice from five-sided dice (view source)
Revision as of 23:58, 27 December 2018
, 5 years ago→{{header|M2000 Interpreter}}
Line 1,245:
end</lang>
=={{header|M2000 Interpreter}}==
<lang 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.
Line 1,251 ⟶ 1,250:
We check for uniform numbers using +-5% from expected value.
▲<lang M2000 Interpreter>
Module CheckIt {
|