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