LOLILOL

with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO ; use Ada.Integer_Text_IO;
with affichage; use affichage;
with Coordonnee; use Coordonnee;
with ensemble; use ensemble;
with grilleSudoku; use grilleSudoku;
with SudokuGrille; use SudokuGrille;

procedure main is
   difficulte : Integer;
   g : Type_Grille;

begin

   difficulte := -1;

   while difficulte < 1 or difficulte > 3 loop
      put("Difficulte ? (1-2-3) ");
      get(difficulte);
   end loop;

   New_Line;

   -- Affichage de la grille en fonction de la difficulté rentrée
   if difficulte = 1 then
      New_Line;
      put("Grille facile");
      g := facile;
   else
      if difficulte = 2 then
         New_Line;
         put("Grille moyenne");
         g := moyen;
      else
         if difficulte = 3 then
            New_Line;
            put("Grille difficile");
            g := difficile;
         end if;
      end if;
   end if;

   afficherGrille(g);

end main;