add_arc
This commit is contained in:
parent
2f6f51711a
commit
9440d3e0f4
1 changed files with 5 additions and 1 deletions
|
@ -12,4 +12,8 @@ let gmap gr f =
|
|||
let new_graph = clone_nodes gr in
|
||||
e_fold gr (fun acu id1 id2 x -> new_arc acu id1 id2 (f x)) new_graph
|
||||
|
||||
let add_arc g id1 id2 n = assert false
|
||||
let add_arc g id1 id2 n =
|
||||
let f=find_arc id1 id2 g in
|
||||
match f with
|
||||
|None->new_arc g id1 id2 n
|
||||
|Some x->new_arc g id1 id2 (n+x)
|
||||
|
|
Loading…
Reference in a new issue