.\" Automatically generated by Pod::Man v1.37, Pod::Parser v1.32
.\"
.\" Standard preamble:
.\" ========================================================================
.de Sh \" Subsection heading
.br
.if t .Sp
.ne 5
.PP
\fB\\$1\fR
.PP
..
.de Sp \" Vertical space (when we can't use .PP)
.if t .sp .5v
.if n .sp
..
.de Vb \" Begin verbatim text
.ft CW
.nf
.ne \\$1
..
.de Ve \" End verbatim text
.ft R
.fi
..
.\" Set up some character translations and predefined strings. \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote. | will give a
.\" real vertical bar. \*(C+ will give a nicer C++. Capital omega is used to
.\" do unbreakable dashes and therefore won't be available. \*(C` and \*(C'
.\" expand to `' in nroff, nothing in troff, for use with C<>.
.tr \(*W-|\(bv\*(Tr
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
.ie n \{\
. ds -- \(*W-
. ds PI pi
. if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
. if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch
. ds L" ""
. ds R" ""
. ds C` ""
. ds C' ""
'br\}
.el\{\
. ds -- \|\(em\|
. ds PI \(*p
. ds L" ``
. ds R" ''
'br\}
.\"
.\" If the F register is turned on, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
.\" entries marked with X<> in POD. Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
.if \nF \{\
. de IX
. tm Index:\\$1\t\\n%\t"\\$2"
..
. nr % 0
. rr F
.\}
.\"
.\" For nroff, turn off justification. Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.hy 0
.if n .na
.\"
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear. Run. Save yourself. No user-serviceable parts.
. \" fudge factors for nroff and troff
.if n \{\
. ds #H 0
. ds #V .8m
. ds #F .3m
. ds #[ \f1
. ds #] \fP
.\}
.if t \{\
. ds #H ((1u-(\\\\n(.fu%2u))*.13m)
. ds #V .6m
. ds #F 0
. ds #[ \&
. ds #] \&
.\}
. \" simple accents for nroff and troff
.if n \{\
. ds ' \&
. ds ` \&
. ds ^ \&
. ds , \&
. ds ~ ~
. ds /
.\}
.if t \{\
. ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
. ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
. ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
. ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
. ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
. ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
.\}
. \" troff and (daisy-wheel) nroff accents
.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
.ds ae a\h'-(\w'a'u*4/10)'e
.ds Ae A\h'-(\w'A'u*4/10)'E
. \" corrections for vroff
.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
. \" for low resolution devices (crt and lpr)
.if \n(.H>23 .if \n(.V>19 \
\{\
. ds : e
. ds 8 ss
. ds o a
. ds d- d\h'-1'\(ga
. ds D- D\h'-1'\(hy
. ds th \o'bp'
. ds Th \o'LP'
. ds ae ae
. ds Ae AE
.\}
.rm #[ #] #H #V #F C
.\" ========================================================================
.\"
.IX Title "Games::AlphaBeta::Position 3"
.TH Games::AlphaBeta::Position 3 "2008-01-05" "perl v5.8.8" "User Contributed Perl Documentation"
.SH "NAME"
Games::AlphaBeta::Position \- base Position class for use with Games::AlphaBeta
.SH "SYNOPSIS"
.IX Header "SYNOPSIS"
.Vb 2
\& package My::GamePos;
\& use base qw(Games::AlphaBeta::Position);
.Ve
.PP
.Vb 4
\& sub apply { ... }
\& sub endpos { ... } # optional
\& sub evaluate { ... }
\& sub findmoves { ... }
.Ve
.PP
.Vb 3
\& package main;
\& my $pos = My::GamePos->new;
\& my $game = Games::AlphaBeta->new($pos);
.Ve
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
Games::AlphaBeta::Position is a base class for position-classes
that can be used with Games::AlphaBeta. It inherits most of
its methods from Games::Sequential::Position; make sure you
read its documentation.
.PP
This class is provided for convenience. You don't need this class
in order to use Games::AlphaBeta. It is, however, also
possible to make use of this class on its own.
.SH "INHERITED METHODS"
.IX Header "INHERITED METHODS"
The following methods are inherited from
Games::Sequential::Position:
.IP "new" 4
.IX Item "new"
.PD 0
.IP "init" 4
.IX Item "init"
.IP "copy" 4
.IX Item "copy"
.IP "player" 4
.IX Item "player"
.PD
.SH "VIRTUAL METHODS"
.IX Header "VIRTUAL METHODS"
Modules inheriting this class must implement the following
methods (in addition to \f(CW\*(C`apply()\*(C'\fR and anything else required by
Games::Sequential::Position): \f(CW\*(C`evaluate()\*(C'\fR &
\&\f(CW\*(C`findmoves()\*(C'\fR.
.IP "\fIfindmoves()\fR" 4
.IX Item "findmoves()"
Return an array of all moves possible for the current player at
the current position. Don't forget to return a null move if the
player is allowed to pass; an empty array returned here denotes
an ending position in the game.
.IP "\fIevaluate()\fR" 4
.IX Item "evaluate()"
Return the \*(L"fitness\*(R" value for the current player at the current
position.
.SH "METHODS"
.IX Header "METHODS"
The following methods are provided by this class.
.IP "endpos" 4
.IX Item "endpos"
True if the position is an ending position, i.e. either a draw or
a win for one of the players.
.Sp
Note: Not all games need this method, so the default
implementation provided by this modules always returns false.
.SH "SEE ALSO"
.IX Header "SEE ALSO"
The author's website, describing this and other projects:
.SH "AUTHOR"
.IX Header "AUTHOR"
Stig Brautaset,
.SH "COPYRIGHT AND LICENCE"
.IX Header "COPYRIGHT AND LICENCE"
Copyright (C) 2004 by Stig Brautaset
.PP
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.