Note:

You are viewing a development version of the library. Goto the latest version.

let fold_edges f t acc =
  let racc = ref acc in
    for v1 = 0 to Array.length t.vertexes - 1 do
      SetInt.iter
        (fun v2 -> racc := f v1 v2 !racc)
        !(snd t.vertexes.(v1))
    done;
    !racc