Browse Source

tests avec flots à 0 ok

EyeXion 3 years ago
parent
commit
65df1980a8
2 changed files with 6 additions and 3 deletions
  1. 4
    1
      .vscode/settings.json
  2. 2
    2
      src/flot.ml

+ 4
- 1
.vscode/settings.json View File

@@ -3,5 +3,8 @@
3 3
         "*.ml": "ocaml",
4 4
         "*.mli": "ocaml"
5 5
     },
6
-    "editor.formatOnSave": true
6
+    "editor.formatOnSave": true,
7
+    "ocaml.sandbox": {
8
+        "kind": "global"
9
+    }
7 10
 }

+ 2
- 2
src/flot.ml View File

@@ -30,8 +30,8 @@ let rec ford_fulkerson gr origin destination =
30 30
     gr 
31 31
   else (
32 32
     let min_change = find_minimum_flot path_found in
33
-    let updated_graph = update path_found (fun lbl -> add_current_flot lbl min_change) (fun lbl -> reduce_current_flot lbl min_change) in
34
-    ford_flukerson updated_graph origin destination)
33
+    let updated_graph = update gr path_found (fun lbl -> add_current_flot lbl min_change) (fun lbl -> reduce_current_flot lbl min_change) in
34
+    ford_fulkerson updated_graph origin destination)
35 35
 
36 36
 let read_graph path = gmap (from_file path) string_to_label_flot
37 37
 

Loading…
Cancel
Save