在Prolog中实现alpha beta修剪

Question

我正在开发Prolog中的Teeko游戏，我尝试实现alpha beta修剪，但我不知道从哪里开始。有人可以指导我吗？我已经找到了minimax算法。

Answer 1

  

我尝试实现alpha beta修剪，但我不知道从哪里开始。

     

有人可以指导我吗？

     

我已经找到了minimax算法。

对alpha beta修剪算法的简要介绍

选择使用minimax进行alpha-beta修剪的移动

新的关系方案是alpha_beta( Depth, Position, Alpha, Beta, Move, Value )，

通过用alpha和beta替换minimax标志来扩展minimax。同样的关系适用于evaluate_and_choose。

通过测试位置是否为终点，可以通过替换alpha_beta的基本情况来推广该程序。这在国际象棋程序中是必要的，例如，用于处理不完整的棋子交换。

evaluate_and_choose ( Moves, Position, Depth, Alpha, Beta, Record, BestMove )

• 从当前的移动

中选择 BestMove 使用带有alpha-beta截止搜索的minimax算法

• 位置

• 深度保持领先。

• Alpha 和 Beta 是算法的参数。

• 记录会记录当前最佳动作。

evaluate_and_choose([ Move | Moves ], Position, D, Alpha, Beta, Move1, BestMove ) :-
    move( Move, Position, Positionl ),
    alpha_beta( D, Positionl, Alpha, Beta, MoveX, Value ),
    Value1 is -Value,
    cutoff( Move, Value1, D, Alpha, Beta, Moves, Position, Move1, BestMove ).

evaluate_and_choose( [], Position, D, Alpha, Beta, Move, ( Move, Alpha )).

alpha_beta( 0, Position, Alpha, Beta, Move, Value ) :- 
    value( Position, Value ).

alpha_beta( D, Position, Alpha, Beta, Move, Value ) :- 
    findall( M, move( Position, M ), Moves ),
    Alphal is -Beta,
    Betal is -Alpha,
    D1 is D-l,
    evaluate_and_choose( Moves, Position, D1, Alphal, Betal, nil, ( Move, Value )).


cutoff( Move, Value, D, Alpha, Beta, Moves, Position, Movel, ( Move,Value )) :- 
    Value > Beta.
cutoff(Move, Value, D, Alpha, Beta, Moves, Position, Movel, BestMove ) :- 
    Alpha < Value, Value < Beta,
    evaluate_and_choose( Moves, Position, D, Value, Beta, Move, BestMove ).

cutoff( Move, Value, D, Alpha, Beta, Moves, Position, Movel, BestMove ) :- 
    Value < Alpha,
    evaluate_and_choose( Moves, Position, D, Alpha, Beta, Move1, BestMove ).