13 lines
293 B
Text
13 lines
293 B
Text
F:{[g]
|
|
r::s::!i::0
|
|
t::+`o`j`k!(#g)#'0,2##g
|
|
L::{[g;v]
|
|
t[v]:1,i,i; s,:v; i+:1
|
|
{[g;v;w]
|
|
$[t[`k;w]=#g; L w; ~t[`o;w]; :0N]
|
|
t[`j;v]&:t[`j;w]}[g;v]'g v
|
|
$[=/t[`j`k;v]
|
|
[a:*&v=s; c:a_s; t[`o;c]:0; s::a#s; r,:,c]
|
|
]}[g]
|
|
{[g;v] $[t[`k;v]=#g; L v; ]}[g]'!#g
|
|
r}
|