32 lines
1.3 KiB
OCaml
32 lines
1.3 KiB
OCaml
|
open Trie
|
||
|
|
|
||
|
|
(* Module Menu_dico *)
|
||
|
|
|
||
|
|
(******************************************************************************)
|
||
|
|
(* *)
|
||
|
|
(* fonction de gestion d'un dictionnaire par un menu de commandes *)
|
||
|
|
(* *)
|
||
|
|
(******************************************************************************)
|
||
|
|
val gere_dico :
|
||
|
|
(* la fonction qui décompose un mot en caractères*)
|
||
|
|
('a -> 'b list) ->
|
||
|
|
(* la fonction qui recompose un mot *)
|
||
|
|
('b list -> 'a) ->
|
||
|
|
(* la fonction qui lit un mot *)
|
||
|
|
(unit -> 'a) ->
|
||
|
|
(* la procédure qui affiche un mot *)
|
||
|
|
('a -> unit) ->
|
||
|
|
(* la fonction de création d'un trie *)
|
||
|
|
(('a -> 'b list) -> ('b list -> 'a) -> ('a, 'b) trie) ->
|
||
|
|
(* la fonction qui teste l'appartenance d'un mot à un trie *)
|
||
|
|
('a -> ('a, 'b) trie -> bool) ->
|
||
|
|
(* la fonction qui ajoute un mot à un trie *)
|
||
|
|
('a -> ('a, 'b) trie -> ('a, 'b) trie) ->
|
||
|
|
(* la fonction qui retire un mot d'un trie *)
|
||
|
|
('a -> ('a, 'b) trie -> ('a, 'b) trie) ->
|
||
|
|
(* la procédure qui affiche un trie *)
|
||
|
|
(('a -> unit) -> ('a, 'b) trie -> unit) ->
|
||
|
|
(* la liste initiale de mots *)
|
||
|
|
('a list) ->
|
||
|
|
unit
|