Floyd-Warshall algorithm: Difference between revisions

m
m (→‎{{header|ALGOL 68}}: As the data is REAL, use max real for infinity, not max int)
m (→‎{{header|ALGOL 68}}: fix bugette)
Line 428:
FOR i FROM LWB nxt TO 1 UPB nxt DO
FOR j FROM 2 LWB nxt TO 2 UPB nxt DO
nxt[ i, j ] := IF i /= j THEN nxt[ i, j ] := j + 1 ELSE 0 FI
OD
OD;
3,048

edits