Tarjan: Difference between revisions
m
→{{header|K}}: remove some unnecessary punctuation
m (→{{header|K}}: a bit more idiomatic) |
m (→{{header|K}}: remove some unnecessary punctuation) |
||
Line 897:
t[v]:1,i,i; s,:v; i+:1
{[g;v;w]
$[
t[`j;v]&:t[`j;w]}[g;v]'g
$[=/t[`j`k;v]
[a:*&v=s; c:a_s; t[`o;c]:0; s::a#s; r,:,c]
]}[g]
{[g;v] $[
r}</syntaxhighlight>
|