Abelian sandpile model: Difference between revisions
Content added Content deleted
Alextretyak (talk | contribs) m (→{{header|11l}}: new way of specifying file open mode) |
m (→{{header|ALGOL 68}}: bug fix) |
||
Line 377: | Line 377: | ||
BEGIN |
BEGIN |
||
INT result := s[ 1 LWB s, 2 LWB s ]; |
INT result := s[ 1 LWB s, 2 LWB s ]; |
||
FOR i FROM 1 LWB s TO |
FOR i FROM 1 LWB s TO 1 UPB s DO |
||
FOR j FROM 2 LWB s TO 2 UPB s DO |
FOR j FROM 2 LWB s TO 2 UPB s DO |
||
IF s[ i, j ] > result THEN result := s[ i, j ] FI |
IF s[ i, j ] > result THEN result := s[ i, j ] FI |