Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- let rec dfs toIn toOut toCheckEntry getAdjVerteciesOrder acc start gr =
- let nextInner order acc =
- match order with
- | (v, w) : tl where toCheckEntry start v w acc ->
- let acc = dfs toIn toOut toCheckEntry getAdjVerteciesOrder acc v gr
- nextInner acc tl
- | _ -> acc
- let order = getAdjVerteciesOrder start pastInAcc gr
- acc |> toIn start |> nextInner order |> toOut start
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement