7.3.4. Resolución de juegos. Poda alfa-beta.

• Implementación recursiva.

MinimaxAB (B: tipo_tablero; valor_padre: real; modo: (MAX, MIN)) : real;

if B es una hoja then

Devolver Utilidad (B);

else begin

if modo = MAX then

valor_act:= -?;

else

valor_act:= +?;

for cada hijo C del tablero B do

if modo = MAX then

valor_act:= max (valor_act, MinimaxAB (C, valor_act, MIN));

{ Poda beta } if valor_act ? valor_padre then

Salir del for, descartando los demás hijos de B;

else { modo = MIN }

valor_act:= min (valor_act, MinimaxAB (C, valor_act, MAX));

{ Poda alfa } if valor_act ? valor_padre then

Salir del for, descartando los demás hijos de B;

Devolver valor_act;

end;

• Llamada inicial: MinimaxAB (TableroInicial, +?, MAX);

Diapositiva anterior

Ir a la primera diapositiva

Ver versión gráfica