|
SantaClaus.m2 |
PROCEDURE NextLocation(location: Location) : Location; VAR next: Location; mindistance: Distance; minlocation: Location; BEGIN mindistance := MAX(Distance); FOR next := 0 TO noflocations-1 DO IF ~visited[next] THEN IF distances[location, next] < mindistance THEN mindistance := distances[location, next]; minlocation := next; END; END; END; RETURN minlocation END NextLocation; |
Von den noch nicht aufgesuchten Orten ist der
nächstgelegene zurückzuliefern.
|
Copyright © 1999 Andreas Borchert, in HTML konvertiert am 13.01.1999 |