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