NAME Games::AlphaBeta - game-tree search with object oriented interface SYNOPSIS package My::GamePos; use base qw(Games::AlphaBeta::Position); # initialise starting position sub _init { ... } # Methods required by Games::AlphaBeta sub apply { ... } sub endpos { ... } # optional sub evaluate { ... } sub findmoves { ... } # Draw a position in the game (optional) sub draw { ... } package main; my $pos = My::GamePos->new; my $game = Games::AlphaBeta->new($pos); while ($game->abmove) { print draw($game->peek_pos); } DESCRIPTION Games::AlphaBeta provides a generic implementation of the AlphaBeta game-tree search algorithm (also known as MiniMax search with alpha beta pruning). This algorithm can be used to find the best move at a particular position in any two-player, zero-sum game with perfect information. Examples of such games include Chess, Othello, Connect4, Go, Tic-Tac-Toe and many, many other boardgames. Users must pass an object representing the initial state of the game as the first argument to "new()". This object must provide the following methods: "copy()", "apply()", "endpos()", "evaluate()" and "findmoves()". This is explained more carefully in Games::AlphaBeta::Position which is a base class you can use to implement your position object. INHERITED METHODS The following methods are inherited from Games::Sequential: new debug peek_pos peek_move move undo METHODS _init [@list] *Internal method.* Initialize an AlphaBeta object. ply [$value] Return current default search depth and, if invoked with an argument, set to new value. abmove [$ply] Perform the best move found after an AlphaBeta game-tree search to depth $ply. If $ply is not specified, the default depth is used (see "ply()"). The best move found is performed and a reference to the resulting position is returned on success, and undef is returned on failure. Note that this function can take a long time if $ply is high, particularly if the game in question has many possible moves at each position. If "debug()" is set, some basic debugging is printed as the search progresses. _alphabeta $pos $alpha $beta $ply *Internal method.* BUGS The valid range of values "evaluate()" can return is hardcoded to -99_999 - +99_999 at the moment. Probably should provide methods to get/set these. TODO Implement the missing iterative deepening alphabeta routine. SEE ALSO The author's website, describing this and other projects: AUTHOR Stig Brautaset, COPYRIGHT AND LICENCE Copyright (C) 2004 by Stig Brautaset This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.3 or, at your option, any later version of Perl 5 you may have available.