Advertisement
Guest User

Untitled

a guest
Dec 11th, 2018
56
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
F# 0.46 KB | None | 0 0
  1.     let rec dfs toIn toOut toCheckEntry getAdjVerteciesOrder acc start gr =
  2.         let nextInner order acc =
  3.             match order with
  4.             | (v, w) : tl where toCheckEntry start v w acc ->
  5.                 let acc = dfs toIn toOut toCheckEntry getAdjVerteciesOrder acc v gr
  6.                 nextInner acc tl
  7.             | _ -> acc
  8.         let order = getAdjVerteciesOrder start pastInAcc gr
  9.         acc |> toIn start |> nextInner order |> toOut start
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement