Probabilistic choice: Difference between revisions

m
→‎{{header|REXX}}: changed a comment.
m (→‎{{header|REXX}}: changed comments and whitespace.)
m (→‎{{header|REXX}}: changed a comment.)
Line 2,701:
names= 'aleph beth gimel daleth he waw zayin heth ───totals───►' /*names of the cells.*/
hi= 100000 /*max REXX RANDOM num*/
z= words(names); #= z - 1 /*#: ≡thethe number of actual/usable names.*/
$= 0 /*initialize sum of the probabilities. */
do n=1 for #; prob.n= 1 / (n+4); if n==# then prob.n= 1759 / 27720