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