Strongly Connected Components: Reverse the Edges
Strongly Connected Components: Reverse the Edges
For i := 1 to n do
RevAdj[i] := NIL;
endfor
for i := 1 to n do
ptr := AdjList[i];
while ptr ¹ NIL do
w:= ptr^.vertex;
ptr2 := new(AdjElem);
ptr2^.vertex := i;
ptr2^.link := RevAdj[w];
RevAdj[w] := ptr2;
endwhile
endfor