|
<lang rexx>/*REXX program simulates a 7─sided die based on a 5─sided throw for a number of trials. */
parse arg trials sample seed . /*obtain optional arguments from the CL*/
if trials=='' | trials="," then trials= 1 1 /*Not specified? Then use the default.*/
if sample=='' | sample="," then sample=1000000 1000000 /* " " " " " " */
if datatype(seed,'W') then call random ,,seed /*Integer? Then use it as a RAND seed.*/
L= length(trials) /* [↑] one million samples to be used.*/
do #=1 for trials; die.=0 /*performs the number of desired trials*/
do until k==sample; r=5 * random(1, 5) + random(1, 5) - 6
k=k+1; r=r // 7 + 1; die.r=die.r + 1
say center('trial:'right(#, 4) " " sample 'samples, expect='expect, 80, "─") ▼
do #=1 for trials; die.= do0 j=1 for 7 /*performs the number of desired trials*/
say ' side' j "had " die.j ' occurrences', ▼ do until k==sample; ' difference from expected:'right r= 5 * random(die.j-expect1, length5) + random(sample)1, 5) - 6
if r>20 endthen /*j*/iterate
end /*#*/ k= k+1; r=r /*stick/ a7 fork in+ it, 1; we're all done die.r= */</lang>die.r + 1
▲ end if r>20 then iterate/*until*/
▲ say center('trial:' right(#, 4L) " " sample 'samples, expect =' expect, 80, "─")
do j=1 for 7
▲ say ' side' j "had " die.j ' occurrences',
' difference from expected:'right(die.j - expect, length(sample) )
end /*#*/ /*stick a fork in it, we're all done. */</lang>
{{out|output|text= when using the input of: <tt> 11 </tt>}}
<pre style="font-size:84%;height:71ex">
─────────────────trial──────────────────trial: 1 1000000 samples, expect= 142857──────────────────
side 1 had 142990142076 occurrences difference from expected: 133-781
side 2 had 142811143053 occurrences difference from expected: -46196
side 3 had 143348142342 occurrences difference from expected: 491-515
side 4 had 143219142633 occurrences difference from expected: 362-224
side 5 had 142717143024 occurrences difference from expected: -140 167
side 6 had 141951143827 occurrences difference from expected: -906 970
side 7 had 142964143045 occurrences difference from expected: 107188
─────────────────trial──────────────────trial: 2 1000000 samples, expect= 142857──────────────────
side 1 had 142707143470 occurrences difference from expected: -150 613
side 2 had 142512142998 occurrences difference from expected: -345 141
side 3 had 143038142654 occurrences difference from expected: 181-203
side 4 had 143268142545 occurrences difference from expected: 411-312
side 5 had 142629142452 occurrences difference from expected: -228405
side 6 had 142902143144 occurrences difference from expected: 45287
side 7 had 142944142737 occurrences difference from expected: 87-120
─────────────────trial──────────────────trial: 3 1000000 samples, expect= 142857──────────────────
side 1 had 142743142773 occurrences difference from expected: -11484
side 2 had 142674143198 occurrences difference from expected: -183 341
side 3 had 142834142296 occurrences difference from expected: -23561
side 4 had 142668142804 occurrences difference from expected: -18953
side 5 had 143108142897 occurrences difference from expected: 251 40
side 6 had 142727142382 occurrences difference from expected: -130475
side 7 had 143246143650 occurrences difference from expected: 389793
─────────────────trial──────────────────trial: 4 1000000 samples, expect= 142857──────────────────
side 1 had 142575143150 occurrences difference from expected: -282 293
side 2 had 143139142635 occurrences difference from expected: 282-222
side 3 had 142618142763 occurrences difference from expected: -23994
side 4 had 142647142853 occurrences difference from expected: -2104
side 5 had 142204143132 occurrences difference from expected: -653 275
side 6 had 143228142403 occurrences difference from expected: 371-454
side 7 had 143589143064 occurrences difference from expected: 732207
─────────────────trial──────────────────trial: 5 1000000 samples, expect= 142857──────────────────
side 1 had 142539143041 occurrences difference from expected: -318 184
side 2 had 143490142701 occurrences difference from expected: 633-156
side 3 had 142261143416 occurrences difference from expected: -596 559
side 4 had 142755142097 occurrences difference from expected: -102760
side 5 had 142976142451 occurrences difference from expected: 119-406
side 6 had 143188143332 occurrences difference from expected: 331475
side 7 had 142791142962 occurrences difference from expected: -66105
─────────────────trial──────────────────trial: 6 1000000 samples, expect= 142857──────────────────
side 1 had 142706142502 occurrences difference from expected: -151355
side 2 had 142344142429 occurrences difference from expected: -513428
side 3 had 143243143146 occurrences difference from expected: 386289
side 4 had 143626142791 occurrences difference from expected: 769-66
side 5 had 142555143271 occurrences difference from expected: -302 414
side 6 had 142530143415 occurrences difference from expected: -327 558
side 7 had 142996142446 occurrences difference from expected: 139-411
─────────────────trial──────────────────trial: 7 1000000 samples, expect= 142857──────────────────
side 1 had 142901142700 occurrences difference from expected: 44-157
side 2 had 142950142691 occurrences difference from expected: 93-166
side 3 had 143147143067 occurrences difference from expected: 290210
side 4 had 142081141562 occurrences difference from expected: -7761295
side 5 had 143423143316 occurrences difference from expected: 566459
side 6 had 141965143150 occurrences difference from expected: -892 293
side 7 had 143533143514 occurrences difference from expected: 676657
─────────────────trial──────────────────trial: 8 1000000 samples, expect= 142857──────────────────
side 1 had 142818142362 occurrences difference from expected: -39495
side 2 had 142681143298 occurrences difference from expected: -176 441
side 3 had 142886142639 occurrences difference from expected: 29-218
side 4 had 142975142811 occurrences difference from expected: 118-46
side 5 had 142987143275 occurrences difference from expected: 130418
side 6 had 142781142765 occurrences difference from expected: -7692
side 7 had 142872142850 occurrences difference from expected: 15-7
─────────────────trial──────────────────trial: 9 1000000 samples, expect= 142857──────────────────
side 1 had 143501143508 occurrences difference from expected: 644651
side 2 had 142404142650 occurrences difference from expected: -453207
side 3 had 142882142614 occurrences difference from expected: 25-243
side 4 had 143051142916 occurrences difference from expected: 194 59
side 5 had 142479142944 occurrences difference from expected: -378 87
side 6 had 142664143129 occurrences difference from expected: -193 272
side 7 had 143019142239 occurrences difference from expected: 162-618
─────────────────trial──────────────────trial: 10 1000000 samples, expect= 142857──────────────────
side 1 had 142945142455 occurrences difference from expected: 88-402
side 2 had 143142143112 occurrences difference from expected: 285255
side 3 had 142843143435 occurrences difference from expected: -14578
side 4 had 143043142704 occurrences difference from expected: 186-153
side 5 had 142558142376 occurrences difference from expected: -299481
side 6 had 142834142721 occurrences difference from expected: -23136
side 7 had 142635143197 occurrences difference from expected: -222 340
─────────────────trial──────────────────trial: 11 1000000 samples, expect= 142857──────────────────
side 1 had 143248142967 occurrences difference from expected: 391110
side 2 had 142878142204 occurrences difference from expected: 21-653
side 3 had 142229142993 occurrences difference from expected: -628 136
side 4 had 142902142797 occurrences difference from expected: 45-60
side 5 had 142685143081 occurrences difference from expected: -172 224
side 6 had 143214142711 occurrences difference from expected: 357-146
side 7 had 142844143247 occurrences difference from expected: -13390
</pre>
| 