Abelian sandpile model: Difference between revisions

: row<SIZE over SIZE < ensure ;

: legal? col>=0 col<SIZE row>=0 row<SIZE 2drop true ;

: east 1+ ;

: west 1- ;

: reduce peek 2dup ix dup -4 swap +! @ 4 < if dec-stack then ;