Implémentation muable d'une file

1. 1

   Indice

   Créer un enregistrement record contenant deux listes vides pour initialiser la structure.
   Écrire une fonction filevide : unit -> 'a file qui renvoie une file vide.
2. 2

   Indice

   Tester la liste tête à l'aide d'un motif pour vérifier son état de vacuité.
   Écrire une fonction est_vide : 'a file -> bool qui renvoie un booléen indiquant si la file est vide.
3. 3

   Indice

   Modifier le champ mutable queue en préfixant la nouvelle valeur à la liste existante.
   Écrire une fonction enfiler : 'a file -> 'a -> unit qui ajoute un élément à la file en la modifiant.
4. 4

   Indice

   Utiliser une fonction auxiliaire récursive avec un accumulateur pour construire la liste inversée.
   Écrire une fonction inverser : 'a list -> 'a list qui calcule la liste inversée. Par exemple inverser [1; 2; 3] renvoie [3; 2; 1].
5. 5

   Indice

   Extraire l'élément tête et basculer la queue vers la tête si celle-ci devient vide.
   Écrire une fonction defiler : 'a file -> 'a qui renvoie le premier élément de la file après suppression. Par exemple defiler f renvoie 1 si f contient [1; 2].
6. 6

   Indice

   Consulter le premier élément de la tête et réorganiser la file si elle est temporairement vide.
   Écrire une fonction tete : 'a file -> 'a qui renvoie le premier élément de la file sans suppression. Par exemple tete f renvoie 1 si f contient [1; 2].