12 lines
No EOL
214 B
OCaml
12 lines
No EOL
214 B
OCaml
open Graph
|
|
|
|
type path = id list
|
|
|
|
type t_cost={
|
|
mutable cout:int;
|
|
mutable father:int
|
|
}
|
|
|
|
val blf: (int * int) graph -> id -> id -> t_cost array
|
|
|
|
val get_path: (int * int) graph -> id -> id -> path option |