summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordoy <doy@tozt.net>2009-04-27 17:53:25 -0500
committerdoy <doy@tozt.net>2009-04-27 17:53:25 -0500
commit4dcb9ad6e7b78d5a58ac6215885f3f2dcf329fd2 (patch)
treefd2d82521c2bd1900c96e9077ffe85ed0c5dd7a7
parenta3d2e93584fad534414255ce45f58d9d98fbceeb (diff)
downloadbot-games-4dcb9ad6e7b78d5a58ac6215885f3f2dcf329fd2.tar.gz
bot-games-4dcb9ad6e7b78d5a58ac6215885f3f2dcf329fd2.zip
add players in 24
-rw-r--r--lib/Bot/Games/Game/24.pm3
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/Bot/Games/Game/24.pm b/lib/Bot/Games/Game/24.pm
index bfa2e2e..d675594 100644
--- a/lib/Bot/Games/Game/24.pm
+++ b/lib/Bot/Games/Game/24.pm
@@ -23,12 +23,15 @@ has solution => (
sub init {
my $self = shift;
+ my ($player) = @_;
+ $self->add_player($player) unless $self->has_player($player);
return $self->generate_24;
}
augment turn => sub {
my $self = shift;
my ($player, $expr) = @_;
+ $self->add_player($player) unless $self->has_player($player);
my $numbers = join ',', sort grep { $_ } split(/[-\+\*\/\(\)]+/, $expr);
my $solution = join ',', sort split(' ', $self->state);