Abelian sandpile model: Difference between revisions
m
small Forth improvement
m (improved Forth solution) |
m (small Forth improvement) |
||
Line 94:
: row<SIZE over SIZE < ensure ;
: legal? col>=0 col<SIZE row>=0 row<SIZE 2drop true ;
: north
: east 1+ ;
: south
: west 1- ;
: reduce peek 2dup ix dup -4 swap +! @ 4 < if dec-stack then ;
|