31 lines
No EOL
681 B
OCaml
31 lines
No EOL
681 B
OCaml
open Gfile
|
|
open Tools
|
|
open Display
|
|
open FordFulkerson
|
|
open IoApp
|
|
open AppTools
|
|
|
|
let () =
|
|
|
|
let xs = List.rev (enterAllChoices ()) in
|
|
let () = displayAllChoices (List.map (
|
|
fun x -> match x with
|
|
| (a,_,_) -> a
|
|
)
|
|
xs) in
|
|
();
|
|
|
|
|
|
let g = buildGraph xs in
|
|
|
|
let ys = enterChildren (getMaximumNodeId g) xs in
|
|
|
|
let gComplete = addChildren ys g in
|
|
|
|
let gFinal = main gComplete (getMaximumNodeId gComplete) 0 in
|
|
|
|
let () = exportBase gFinal "./outFileApp" in
|
|
();
|
|
|
|
let () = outputData gFinal ys xs in
|
|
(); print_string "\n\n" |