SUDOKU COM INTELIGÊNCIA ARTIFICIAL

Sudoku com Inteligência Artificial foi desenvolvido por Ivan Diesel com apoio de raciocínio Alexandre Couto, que não conseguia de jeito nenhum resolver uma determinada configuração de jogo Sudoku que a fez ficar muito difícil ou impossível.

Ivan e Alexandre gostam de analisar o que o computador pode ou não fazer tanto para solucionar como para criar os jogos. Para o sudoku padrão (9 x 9), é relativamente simples escrever programas que resolvem todos os quadrados válidos.
Conseguem resolver todos os níveis (dificil, extremamente dificil, impossível e diabólico) com SUCESSO!!


Para adquirir os códigos de fonte em DELPHI e os algoritmo, favor dar o comentário!!


Abraço com forte pensamento!
Ivan Diesel

Software de Sudoku IA. É melhor solução do mundo!

Listagem de algoritmo "Póssivel" em Linguagem DELPHI:

procedure TForm1.possivel; // gerar os números possíveis
var
 x, y, n: integer;
  s: string;
  function tem_cruz(x, y, n: integer): boolean;
  var
    f: integer;
    v: boolean;
  begin
    v := false;
    for f := 1 to 9 do
      if ((n = sud[f, y]) and (x <> f)) or ((n = sud[x, f]) and (y <> f)) then
        v := true;
    result := v;
  end;
begin
  for y := 1 to 9 do
    for x := 1 to 9 do
    begin
      supos[x, y] :='';
      s := '';
      if sud[x, y] = 0 then
        for n := 1 to 9 do
          if (not celula(x, y, n)) and (not tem_cruz(x, y, n)) then
            s := s + inttostr(n);
      supos[x, y] := s;
    end;
end;