Seven-sided dice from five-sided dice: Difference between revisions

m
→‎{{header|REXX}}: made some improvements.
m (→‎{{header|REXX}}: changed whitespace and indenting.)
m (→‎{{header|REXX}}: made some improvements.)
Line 1,388:
if sample=='' then sample=1000000 /* " " " " " " */
 
do t#=1 for trials; die.=0 /*performs the number of desired trials*/
k=0
do until k==sample; r=5 * random(1, 5) + random(1, 5) - 6
Line 1,396:
say
expect=sample%7
say center('trial:'right(t#, 4) '" '" sample 'samples, expect='expect, 79, '"'")
say
do j=1 for 7
Line 1,402:
' difference from expected:'right(die.j-expect, length(sample))
end /*j*/
end /*t#*/ /*stick a fork in it, we're all done. */</lang>
{{out|output|text=&nbsp; when using the input of: &nbsp; <tt> 11 </tt>}}