SUKUDO SOLVER AVEC DES CASES PRÉREMPLIES

Commentaire de f0xi le 12/03/2007 21:34:34 administrateur CS

tu devrait commencer ici :

borland delphi style guide, ou tu vas apprendre a ecrire ton code correctement :

http://dn.codegear.com/article/10280

pour le reste, je ne saurai que trop te conseiller d'etudier d'autres sources, de lire des exemples, de faire des recherches sur le net pour apprendre les mecanismes et algorithmes.

deja, on peu voir que tu t'as totalement mis a coté de la plaque, puisqu'a aucun moment
on ne vois ceci :

TSudoku = array[0..8,0..8] of ...

qui est la base meme d'un jeu de sudoku (une grille 9,9)

ensuite, il est interdit de placer un goto dans une boucle qui renvois a l'exterieur de cette boucle. c'est inconcevable de voir cela.

de plus, 51 variables c'est trop! tableau tableau tableau et tableau!
plus simple a manipuler, plus propre.

logiquement un sudoku se presente donc comme cela :

{ la grille de sudoku }
type
  TSudoku = array[0..8,0..8] of byte;


{ notre grille de jeu }
var
  Sdk : TSudoku;


{ des grilles pour verifier le bon fonctionnement de nos fonctions de test }
const
  { Convertion du boolean }
  BTC : array[boolean] of string = ('La grille est fausse','La grille est bonne');

  { Grille de test bonne }
  SdkCheckTestTrue : TSudoku  = ((1,2,3,4,5,6,7,8,9),
                                 (7,8,9,1,2,3,4,5,6),
                                 (4,5,6,7,8,9,1,2,3),
                                 (9,1,2,3,4,5,6,7,8),
                                 (6,7,8,9,1,2,3,4,5),
                                 (3,4,5,6,7,8,9,1,2),
                                 (8,9,1,2,3,4,5,6,7),
                                 (5,6,7,8,9,1,2,3,4),
                                 (2,3,4,5,6,7,8,9,1));
  { Grille de test fausse }
  SdkCheckTestFalse : TSudoku = ((1,2,3,4,5,6,7,8,9),
                                 (9,1,2,3,4,5,6,7,8),
                                 (8,9,1,2,3,4,5,6,7),
                                 (7,8,9,1,2,3,4,5,6),
                                 (6,7,8,9,1,2,3,4,5),
                                 (5,6,7,8,9,1,2,3,4),
                                 (4,5,6,7,8,9,1,2,3),
                                 (3,4,5,6,7,8,9,1,2),
                                 (2,3,4,5,6,7,8,9,1));

                            
{ verifie que la ligne a l'index donné comporte bien 1 a 9 sans doublons }
function CheckRow(const Sudoku : TSudoku; const index : integer) : boolean;
var N : integer;
    S : set of byte;
begin
  S := [];
  result := true;
  for N := 0 to 8 do
  begin
    result := result and (not (Sudoku[index,N] in S));
    if result then
       S := S + [Sudoku[index,N]]
    else
       exit;
  end;
end;

{ verifie que la colone a l'index donné comporte bien 1 a 9 sans doublons }
function CheckCol(const Sudoku : TSudoku; const index : integer) : boolean;
var N : integer;
    S : set of byte;
begin
  S := [];
  result := true;
  for N := 0 to 8 do
  begin
    result := result and (not (Sudoku[N,Index] in S));
    if result then
       S := S + [Sudoku[N,Index]]
    else
       exit;
  end;
end;

{ verifie que le bloc 3,3 a l'index donné comporte bien 1 a 9 sans doublons }
function CheckCub(const Sudoku : TSudoku; const index : integer) : boolean;
var X,Y : integer;
    S : set of byte;
const
  ITX : array[0..8] of byte = (0,3,6,0,3,6,0,3,6);
  ITY : array[0..8] of byte = (0,0,0,3,3,3,6,6,6);
begin
  S := [];
  result := true;
  for Y := ITY[Index] to ITY[Index]+2 do
      for X := ITX[Index] to ITX[Index]+2 do
      begin
        result := result and (not (Sudoku[Y,X] in S));
        if result then
           S := S + [Sudoku[Y,X]]
        else
           exit;
      end;
end;

{ Test des fonction avec la grille bonne }
procedure TForm1.Button1Click(Sender: TObject);
var N : integer;
    B : boolean;
begin
  B := true;
  for N := 0 to 8 do
  begin
    B := B and CheckCol(SdkCheckTestTrue,N)
           and CheckRow(SdkCheckTestTrue,N)
           and CheckCub(SdkCheckTestTrue,N);
    if not B then
       break;
  end;
  Button1.Caption := BTC[B];
end;

{ test des fonction avec la grille fausse }
procedure TForm1.Button2Click(Sender: TObject);
var N : integer;
    B : boolean;
begin
  B := true;
  for N := 0 to 8 do
  begin
    B := B and CheckCol(SdkCheckTestFalse,N)
           and CheckRow(SdkCheckTestFalse,N)
           and CheckCub(SdkCheckTestFalse,N);
    if not B then
       break;
  end;
  Button2.Caption := BTC[B];
end;


voila comment doit fonctionner un sudoku ...