Anonymous user
Kosaraju: Difference between revisions
→{{header|Standard ML}}
Line 1,004:
fun kosaraju xs = assigns (nil, visit (nil, Many xs :: nil))
fun make (n, is, ijs) =
let
val xs =
fun step (i, j) = connect (item i, item j)
fun path (i :: j ::
| path _ = ()
in
end
val is = 0 :: nil
val ijs =
[0, 9,
[5, 13,
[10, 13] ::
nil
val ns = make (16, is, ijs)
val xs = kosaraju ns
</lang>
{{out}}
<pre>
| |||