Galton box animation: Difference between revisions
Content added Content deleted
(→{{header|REXX}}: added the REXX computer programming language.) |
m (→{{header|REXX}}: used a better randomizer to provide a better spread.) |
||
| Line 2,911: | Line 2,911: | ||
iterate /*go keep looking for balls.*/ |
iterate /*go keep looking for balls.*/ |
||
end |
end |
||
if z==peg then do; |
if z==peg then do; ?= random(,999); d= -1 /*assume falling to the left*/ |
||
if ?//2 then d= 1 /*if odd random#, fall right*/ |
|||
if substr(@.n, y+d, 1)\==' ' then iterate /*blocked fall*/ |
if substr(@.n, y+d, 1)\==' ' then iterate /*blocked fall*/ |
||
@.n= overlay(ball, @.n, y+d) |
@.n= overlay(ball, @.n, y+d) |
||