1#!/usr/bin/perl 2use warnings; 3use strict; 4 5use Games::AlphaBeta; 6use Games::AlphaBeta::Reversi; 7 8my $p = Games::AlphaBeta::Reversi->new; 9my $g = Games::AlphaBeta->new($p); 10 11while ($p = $g->abmove) { 12 print $p->as_string, "\n"; 13} 14 15__DATA__ 16 17=head1 NAME 18 19othello-demo - a self-playing Othello game 20 21=head1 SYNOPSIS 22 23 othello-demo 24 25=head1 DESCRIPTION 26 27This is an example of how simple a self-playing Othello (aka 28Reversi) program can be created using L<Games::AlphaBeta> and 29L<Games::AlphaBeta::Reversi>. 30 31=head1 AUTHOR 32 33Stig Brautaset <stig@brautaset.org> 34 35=cut 36