Advertisement
Guest User

Untitled

a guest
Dec 11th, 2018
49
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
F# 0.52 KB | None | 0 0
  1.     let rec dfs toIn toOut toCheckEntry getAdjVerteciesOrder acc start gr =
  2.         let nextInner acc = function
  3.             | [] ->  acc
  4.             | (v, w) : tl ->
  5.                 nextInner
  6.                 <| dfs toIn toOut toCheckEntry getAdjVerteciesOrder acc v gr
  7.                 <| tl
  8.         let pastInAcc = toIn start acc
  9.         let pastAdjVerteciesAcc =
  10.             getAdjVerteciesOrder start pastInAcc gr
  11.             |> nextInner pastInAcc
  12.         let pastOutAcc = toOut start pastChildrenAcc
  13.         pastOutAcc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement