6.3.2. Problema de las n reinas.

NReinasBacktracking (var s: array [1.. n] of integer)

nivel:= 1;

s[1]:= 0;

repeat

s[nivel]:= s[nivel] + 1;

while (s[nivel] ? n) and not Criterio (nivel, s) do

s[nivel]:= s[nivel] + 1;

if (nivel=n) and (s[nivel] ? n) then

MostrarSolucion (s);

else if (s[nivel] ? n) then

nivel:= nivel + 1;

s[nivel]:= 0;

else

nivel:= nivel -1;

until nivel = 0;

Criterio (nivel: 0..n; s: array [1.. n] of integer) : boolean

for i:= 1 to nivel-1 do

if (s[nivel]=s[i]) or |s[i] - s[nivel]| = |i - nivel| then

Devolver false;

Devolver true;

Diapositiva anterior

Diapositiva siguiente

Ir a la primera diapositiva

Ver versión gráfica