rlacroix/FordFulkersonLeChameau
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

refactor last tools.ml function

Browse source
This commit is contained in:
rlacroix 2022-11-21 16:32:35 +01:00
parent 6f2abc2e72
commit 39df7c2e32
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/tools.ml
View file

@ -6,4 +6,9 @@ open Graph
(* returns a new graph having the same nodes than gr, but no arc. *) (* returns a new graph having the same nodes than gr, but no arc. *)
let clone_nodes gr = n_fold gr new_node empty_graph; let clone_nodes gr = n_fold gr new_node empty_graph;
(* maps all arcs of gr by function f *) (* maps all arcs of gr by function f *)
let gmap gr f = e_fold gr (fun acc id1 id2 x -> add_arc id1 id2 (f x)) (clone_nodes gr); let gmap gr f = e_fold gr (fun acc id1 id2 x -> add_arc id1 id2 (f x)) (clone_nodes gr);
let add_arc g id1 id2 n =
match find_arc g id1 id2 with
| None -> new_arc(g id1 id2 n graph)
| Some a -> new_arc(g id1 id2 n+a graph)