Verify distribution uniformity/Naive: Difference between revisions
Verify distribution uniformity/Naive (view source)
Revision as of 09:34, 10 September 2023
, 9 months ago→{{header|RPL}}: correct DICE7 output
(add RPL) |
(→{{header|RPL}}: correct DICE7 output) |
||
Line 1,890:
1 bins '''FOR''' j
DUP j GET
'''IF'''
'''IF''' DUP n bins / %CH 100 / ABS delta > '''THEN''' NEG j SWAP PUT '''ELSE''' DROP '''END''' ▼
DUP n bins / %CH 100 / ABS
delta >
'''NEXT'''
≫ ≫ '<span style="color:blue">UNIF?</span>' STO
≪ <span style="color:blue">DICE7</span> ≫ 10000 .
≪ 6 RAND * CEIL ≫
{{out}}
<pre>
2: [
1: [
</pre>
| |||