Abelian sandpile model: Difference between revisions

Content added Content deleted
m (improved Forth solution)
Line 88:
: prep-stack HEIGHT 4 u>= if center push then ;
: prepare prep-arr prep-stack ;
: ensure if else 2drop 0 rdrop rdrop2rdrop exit then ;
: col>=0 dup 0>= ensure ;
: col<SIZE dup SIZE < ensure ;
Retrieved from "https://rosettacode.org/wiki/Abelian_sandpile_model"