diff options
author | doy <doy@tozt.net> | 2009-04-27 17:53:25 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2009-04-27 17:53:25 -0500 |
commit | 4dcb9ad6e7b78d5a58ac6215885f3f2dcf329fd2 (patch) | |
tree | fd2d82521c2bd1900c96e9077ffe85ed0c5dd7a7 | |
parent | a3d2e93584fad534414255ce45f58d9d98fbceeb (diff) | |
download | bot-games-4dcb9ad6e7b78d5a58ac6215885f3f2dcf329fd2.tar.gz bot-games-4dcb9ad6e7b78d5a58ac6215885f3f2dcf329fd2.zip |
add players in 24
-rw-r--r-- | lib/Bot/Games/Game/24.pm | 3 |
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); |