Abelian sandpile model: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,664: / Line 1,664: @@
         loop (my int $idx = $rs; $idx < $re; $idx = $idx + 1) {
             if @buffer[$idx] >= 4 {
-                ++@buffer[ $idx - $w ] if $row > 0;
+                my $grains = @buffer[$idx] div 4;
-                ++@buffer[ $idx - 1  ] if $idx - 1 > $rs;
+                @buffer[ $idx - $w ] += $grains if $row > 0;
-                ++@buffer[ $idx + $w ] if $row < $h - 1;
+                @buffer[ $idx - 1  ] += $grains if $idx - 1 >= $rs;
-                ++@buffer[ $idx + 1  ] if $idx + 1 < $buf;
+                @buffer[ $idx + $w ] += $grains if $row < $h - 1;
-                @buffer[ $idx ] -= 4;
+                @buffer[ $idx + 1  ] += $grains if $idx + 1 < $re;
+                @buffer[ $idx ] %= 4;
                 $done = False;
             }
@@ Line 1,674: / Line 1,675: @@
     }
     unless $hide-progress {
-        print "\e[1;1H", @buffer.map( { @color[$_ min 4] } ).join
+        print "\e[1;1H", @buffer.map( { @color[$_ min 4] }).join;
     }
 } until $done;
-print "\e[1;1H", @buffer.map( { @color[$_ min 4] } ).join;
+print "\e[1;1H", @buffer.map( { @color[$_ min 4] }).join;
 cleanup;</lang>