13 lines
No EOL
583 B
OCaml
13 lines
No EOL
583 B
OCaml
open Graph
|
|
|
|
val paiement: float graph -> string -> string list -> float -> (string * id * float) list -> (float graph * (string * id * float) list)
|
|
|
|
val init_node: float graph -> string -> id -> (string * id * float) list-> (float graph * (string * id * float) list)
|
|
|
|
val get_id: string -> (string * id * float) list -> id
|
|
|
|
val get_user: id -> (string * id * float) list -> string
|
|
|
|
val set_val_du: string -> (string * id * float) list -> float -> string list -> (string * id * float) list
|
|
|
|
val set_val_pret: string -> float -> (string * id * float) list -> (string * id * float) list |