function ZeroWindow (alpha:integer; prof:byte):integer; {comme un AlphaBeta, mais avec beta:=alpha+1} var Resultat,Maximum: integer; Ci:coup; begin Maximum:=-32000; {plus petit que tout résultat d'évaluation} [*** cherche et classe tous les coups ***] Ci:= PremierCoup; repeat jouer(Ci); if (prof=1) then Resultat:=-evalue else Resultat:=-ZeroWindow(-succ(alpha),prof-1); dejoue(Ci); if (Resultat>Maximum) then Maximum:=Resultat; Ci:=CoupSuivant; until PlusDeCoups or (maximum>Alpha); ZeroWindow:=Maximum; end;