Kosaraju: Difference between revisions
Added 11l
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: Fix link: Perl 6 --> Raku) |
Alextretyak (talk | contribs) (Added 11l) |
||
Line 7:
;References:
* The article on [[wp:Kosaraju's_algorithm|Wikipedia]].
=={{header|11l}}==
{{trans|Python}}
<lang 11l>F kosaraju(g)
V size = g.len
V vis = [0B] * size
V l = [0] * size
V x = size
V t = [[Int]()] * size
F visit(Int u) -> N
I !@vis[u]
@vis[u] = 1B
L(v) @g[u]
@visit(v)
@t[v] [+]= u
@x--
@l[@x] = u
L(u) 0 .< g.len
visit(u)
V c = [0] * size
F assign(Int u, root) -> N
I @vis[u]
@vis[u] = 0B
@c[u] = root
L(v) @t[u]
@assign(v, root)
L(u) l
assign(u, u)
R c
V g = [[1], [2], [0], [1, 2, 4], [3, 5], [2, 6], [5], [4, 6, 7]]
print(kosaraju(g))</lang>
{{out}}
<pre>
[0, 0, 0, 3, 3, 5, 5, 7]
</pre>
=={{header|C sharp|C#}}==
| |||