16 lines
No EOL
313 B
OCaml
16 lines
No EOL
313 B
OCaml
open Gfile
|
|
open Tools
|
|
open Display
|
|
open FordFulkerson
|
|
open IoApp
|
|
open AppTools
|
|
|
|
let () =
|
|
|
|
let xs = List.rev (enterAllChoices ()) in
|
|
let () = displayAllChoices xs in
|
|
();
|
|
|
|
let g = buildGraph xs in
|
|
let () = exportBase g "./outFileApp" in
|
|
() |