code/dijkstra.code
author Eugen Sawin <sawine@me73.com>
Sat, 05 Mar 2011 14:23:15 +0100
changeset 8 f09e54fbdcaf
permissions -rw-r--r--
Removed redundant exam.
lindenmannm@3
     1
DIST[s]=0;
lindenmannm@3
     2
Insert(U,0,s);
lindenmannm@3
     3
forall(v:V\{s}) {
lindenmannm@3
     4
	DIST[v]=infty;
lindenmannm@3
     5
	Insert(U, infty, v);
lindenmannm@3
     6
}
lindenmannm@3
     7
while !Empty(U) {
lindenmannm@3
     8
    (d,u)=DeleteMin(U);
lindenmannm@3
     9
    forall(e=(u,v):E) {
lindenmannm@3
    10
        if(DIST[v]>DIST[u]+c(u,v)){
lindenmannm@3
    11
            DIST[v]=DIST[u]+c(u,v);
lindenmannm@3
    12
            DecreaseKey(U,v,DIST[v]);
lindenmannm@3
    13
}}}