Anonymous user
Seven-sided dice from five-sided dice: Difference between revisions
m
→{{header|REXX}}: added whitespace.
m (→{{header|REXX}}: added whitespace.) |
|||
Line 1,635:
if trials=='' | trials="," then trials= 1 /*Not specified? Then use the default.*/
if sample=='' | sample="," then sample= 1000000 /* " " " " " " */
if datatype(seed, 'W') then call random ,,seed
L= length(trials) /* [↑] one million samples to be used.*/
do #=1 for trials; die.= 0
k= 0
do until k==sample;
if r>20 then iterate
k= k + 1;
end /*until*/
say
| |||