Función desde ActionScrip2 a Delphi

[[maeyanes]]

Hola...

Hacer una "traducción" de AS2 a Delphi no es tan simple. Muchas de las cosas que se pueden hacer en AS2, no son tan sencillas de realizar en Delphi, un ejemplo es la asignación de valores a un arreglo, en AS2 al hacer:

a = [];

a[10] = 534;

AS2 automáticamente agrega los elementos del 0 al 9 para completar el arreglo, cosa que con Delphi no se puede y te produce un error de Índice fuera de rango.

Dicho lo anterior, adjunto un archivo comprimido con dos clases, una unidad y un archivo .txt que es el código "traducido" de las dos funciones de AS2.

Las dos clases son TSudokuGenerator y TSudokuSolver, y como su nombre los indican, una se usa para generar los Sudokus y la otra para resolverlos.

La clase TSudokuGenerator contiene un método público Generate(const Level: Integer) al cual se le pasa como parámetro el nivel del Sudoku que se desea generar y al finalizar la ejecución de este método, en la propiedad Sudoku se puede acceder al Sudoku generado.

La clase TSudokuSolver se usa para resolver Sudokus y contiene un método Solve(const ASudoku: String) que recibe el Sudoku generado por la clase anterior y devuelve en la propiedad Sudoku el Sudoku ya resuelto.

Un par de capturas de pantalla:






Saludos...

[jhonalone]

Hola.

Millones de gracias, maeyanes. Por tu esfuerzo y por tu tiempo.

Voy a probar tu código y te cuento. (Quizás hoy no pueda...)

Te comentaré.

Gracias, de nuevo. Recibe un cordial saludo.

[jhonalone]

¡¡FABULOSO!! maeyanes.

Tu trabajo ha sido MAGNÍFICO.

Funciona, perfectamente.

Sólo una pregunta. ¿Porqué todos los sudokus resueltos terminan con -1?

No es que sea un problema. La solución es correcta. Simplemente es una curiosidad.

He estado revisando

Código Delphi [-]
procedure TSudokuSolver.Solve(const ASudoku: string);
var
  S: TList;
  Q: TList>;
  I: Integer;

begin
  S := TList.Create;
  Q := TList>.Create;
  FAct := TList>.Create;
  FAq := TList>.Create;
  FSudoku := '';
  FCt := 0;
  for I := 0 to 161 do
    if I < 81 then
      S.Add(511)
    else
      S.Add(0);
  for I := 1 to Length(ASudoku) do
    if CharInSet(ASudoku[i], ['1'..'9']) then
      SetValue(I - 1, ASudoku[i], S);
  if Solver(S) then
  begin
    Q.Add(TList.Create);
    Q[0].AddRange(S)
  end;
  Cons(Q[0]);
  while (FCt < 81) and (FCt > -1) do
  begin
    if FCt2 < 0 then
    begin
      for I := 81 to 162 do
        FSudoku := FSudoku + IntToStr(Q[FCt][i]);
      Break
    end;
    SetValue(FCt2, ListPop(FAct[FCt]), Q[FCt]);
    if not Solver(Q[FCt]) then
    begin
      Q[FCt].Clear;
      Q[FCt].AddRange(FAq[FCt]);
      while (FAct[FCt].Count = 0) and (FCt > -1) do
      begin
        Dec(FCt);
        FCt2 := Q[FCt][162];
        Q[FCt].Clear;
        Q[FCt].AddRange(FAq[FCt])
      end;
    end
    else
    begin
      Inc(FCt);
      if Q.Count = FCt then
        Q.Add(TList.Create)
      else
        Q[FCt].Clear;
      Q[FCt].AddRange(Q[FCt - 1]);
      Cons(Q[FCt])
    end;
  end;
  S.Free;
  Q.Free
end;

Pero no encuentro el motivo.

No te entretengas en buscar la causa si no lo ves a simple vista. (Ya te dije que era una curiosidad y ya has hecho bastante esfuerzo.)

En Google Play tienes el sudoku al que voy a aplicar tu trabajo, (aunque antes tendré que adaptarlo para Android). La App es gratuita y se llama SudokuPlus. Busca por SudokuPlus Jhonalone, si quieres verla. A falta de una solución mejor (como es ésta) estaba utilizando un generador aleatorio, que voy a sustituir por éste que, según su autor siempre genera una solución única. El generador aleatorio, a veces, no lo hace.

Nunca olvidaré tu excelente contribución.

Un saludo muy cordial. Gracias de nuevo.

[[maeyanes]]

Hola...

Me imagino que te refieres a esta parte:

Código Delphi [-]
    if FCt2 < 0 then
    begin
      for I := 81 to 162 do
        FSudoku := FSudoku + IntToStr(Q[FCt][i]);
      Break
    end;

Es un pequeño error, en realidad el ciclo for debería ir de 81 a 161... la posición 162 en la lista Q[FCt] guarda el valor de un índice y este al final del proceso tiene como valor -1, por lo cual no debería agregarse a la cadena de la solución.


Saludos...

[jhonalone]

¡Perfecto! maeyanes

Esa era la causa.

Como te dije estoy intentando adaptarlo a FMX (Android).

El generador, únicamente cambiando la localización de "data.txt", funciona correctamente.

En cambio, el solucionador me está dando problemas.
El primero era en el procedure "Solve". Consistía en que la function "Solver" me daba un error de "Arguments out of range", he supuesto que podía deberse a que las Strings en FMX comienzan por Cero y he modificado lo siguiente:

Código Delphi [-]
for I := 1 to Length(ASudoku) do
    if CharInSet(ASudoku[i], ['1'..'9']) then
      SetValue(I - 1, ASudoku[i], S);
  if Solver(S)...........

Cambiándolo por esto:

Código Delphi [-]
for I := 0 to Length(ASudoku) -1 do
    if CharInSet(ASudoku[i], ['1'..'9']) then
      SetValue(I , (ASudoku.Substring(I,1).ToInteger), S);
  if Solver(S).........

Ahora la function "Solver" ya devuelve TRUE, pero el procedure "Solve" ahora me está dando error en

Código Delphi [-]
Cons(Q[0]);

Estoy peleando con ello hace 2 días.

Si tú sabes porqué y, (abusando de tu generosidad), me sacas de dudas te estaré todavía más agradecido (si es que fuera posible).

En cualquier caso, infinitas gracias y un saludo muy afectuoso.

[[maeyanes]]

Hola...

Sin saber exactamente cual es el error que te reporta Delphi, y leyendo lo de los strings en Android, puedo "adivinar" que el error en Cons(Q[0]); se produce a causa del procedimiento SplitStrToIntList en la unidad SudokuUtils.pas:

Código Delphi [-]
function SplitStrToIntList(const Str: string): TList<Integer>;
var
  I: Integer;

begin
  Result := TList<Integer>.Create;
  if Str = '' then
    Result.Add(-1)
  else
    for I := 1 to Length(Str) do // <--- string basado en índice 1, no 0 como Android...
      Result.Add(StrToInt(Str[i]))
end;

Saludos...

[jhonalone]

Hola maeyanes.

El error es: " in not a valid integer value

Gracias por estar ahí.

Compruebo lo que me has comentado.

Saludos.