14 lines
504 B
OCaml
14 lines
504 B
OCaml
open Tp
|
|
open Trie
|
|
open Menu_dico
|
|
open Chaines
|
|
|
|
(******************************************************************************)
|
|
(* Lancement de l'appli *)
|
|
(******************************************************************************)
|
|
|
|
|
|
let m = [ "bas"; "bât"; "de"; "la"; "lai"; "laid"; "lait"; "lard"; "le";"les"; "long"]
|
|
|
|
let () = gere_dico decompose_chaine recompose_chaine lit_chaine affiche_chaine nouveau appartient ajout retrait affiche m
|