Data update

Task/Kosaraju/PascalABC.NET/kosaraju.pas

@@ -0,0 +1,46 @@
+function kosaraju(g: List<Array of integer>): array of integer;
+var
+  size := g.Count;
+  vis: array of boolean := new boolean[size];
+  l: array of integer := new integer[size];
+  c: array of integer := new integer[size];
+  x := size;
+  t: array of List<integer> := new List<integer>[size];
+
+  procedure visit(u: integer);
+  begin
+    if not vis[u] then
+    begin
+      vis[u] := true;
+      foreach var v in g[u] do
+      begin
+        visit(v);
+        t[v].Add(u);
+      end;
+      dec(x);
+      l[x] := u;
+    end;
+  end;
+
+  procedure assign(u, root: integer);
+  begin
+    if vis[u] then
+    begin
+      vis[u] := false;
+      c[u] := root;
+      foreach var v in t[u] do assign(v, root);
+    end;
+  end;
+
+begin
+  for var i := 0 to t.Count - 1 do t[i] := new List<integer>;
+
+  foreach var u in [0..size - 1] do visit(u);
+  foreach var u in l do assign(u, u);
+  result := c;
+end;
+
+begin
+  var g := Lst(|1|, |2|, |0|, |1, 2, 4|, |3, 5|, |2, 6|, |5|, |4, 6, 7|);
+  println(kosaraju(g));
+end.