#include <stdio.h>
  #include <stdlib.h>
  #include <stdbool.h>

  #include <string.h>

  #define MAX_LETTRES 30

  #define size 26

  
  
  typedef struct node {

    char l;

    struct node * lettres[size];

    bool fin_de_mot;

  } Node;
  

  bool is_empty(struct node *tree)
  {
  	return tree==NULL;
  }
  

  bool is_leaf(struct node *tree)
  {

      int cpt=1;
      if (is_empty(tree)) return 1;
      for (int i=0; i<size ; i++){
          if ( tree->lettres[i] == NULL){
              cpt++;
          }
      }
      if (cpt == size) cpt=1;
      if (cpt != size) cpt=0;
      return cpt ;

  }
  

  
  
  
  
  void ajout(Node **N, char lettre)

  {

      Node *nouveau = malloc(sizeof(Node));
      (*nouveau).l=lettre;
      (*nouveau).fin_de_mot=0;
      for (int i=0; i<size; i++) nouveau->lettres[i]=NULL;
      *N = nouveau;

  }
  
  

  
  
  
  
  void ajout_alphab(Node ** pn, char *  mot,int cpt)

  {

      Node * tmp= *pn;
      //printf("%d \n",cpt);
      char lettre=mot[cpt];
      int pos = lettre - 'a';
      //printf("%c \n",lettre);
      cpt++;
      if (lettre == '\0'){
          (*tmp).fin_de_mot=1;
          return;

      }

      if (tmp->lettres[pos] == NULL) {
          //printf("Rentré \n");
          ajout(&tmp->lettres[pos],lettre);

      }

      return ajout_alphab(&tmp->lettres[pos],mot,cpt);
      
      

  }
  
  

  Node * charger_arbre(Node ** Arbre){

      FILE * dico;
      char mot[MAX_LETTRES];
      dico = fopen("text.txt","r");
      int i;
      while ((i = fscanf(dico,"%s",mot)) == 1){
          ajout_alphab(Arbre,mot,0);
      }
      fclose(dico);
      return *Arbre;

  }
  

  void affichage_arbre(Node * Arbre)
  {

      if (Arbre->l == '?' && is_leaf(Arbre)){
          printf("arbre vide \n");
          return;
      }
      for (int i=0; i<size; i++){
          if (Arbre->lettres[i] != NULL){
              printf("%c -> %c \n",Arbre->l,Arbre->lettres[i]->l);
              affichage_arbre(Arbre->lettres[i]);
          }
      }
      if (Arbre->fin_de_mot) printf("fin de mot \n");

  }
  
  

  void detruire_arbre(Node ** Arbre)
  {

      printf("---------- \n");
      printf("%p \n",*Arbre);
      if (is_empty(*Arbre)) return;
      printf("%c \n",(*Arbre)->l);
      for (int i=0; i<size; i++){
          detruire_arbre(&(*Arbre)->lettres[i]);
      }
      free(*Arbre);
      printf("suppression \n");
      printf("%p \n",*Arbre);

  }
  

  void initialisation(Node ** Arbre){

      Node *nouveau = malloc(sizeof(struct node));
      (*nouveau).l='?';
      for (int i=0; i<size; i++) nouveau->lettres[i] = NULL;
      *Arbre = nouveau;

  }

  int main(){

      Node * Arbre;
      initialisation(&Arbre);
      charger_arbre(&Arbre);
      affichage_arbre(Arbre);
      printf("Arbre fini \n");
      detruire_arbre(&Arbre);
      affichage_arbre(Arbre);
      return 0;

  }