File Coverage

blib/lib/Games/Blackjack.pm

Criterion	Covered	Total	%
statement	53	77	68.8
branch	14	32	43.7
condition	2	9	22.2
subroutine	12	18	66.6
pod			n/a
total	81	136	59.5

######################################################################
# Games::Blackjack -- 2003, Mike Schilli
######################################################################
use warnings; use strict;

package Games::Blackjack;

our $VERSION = "0.04";

#==========================================
package Games::Blackjack::Shoe;
#==========================================

use Algorithm::GenerateSequence;
use Algorithm::Numerical::Shuffle
    qw(shuffle);

###########################################
sub new {
###########################################
    my($class, @options) = @_;

    my $self = {nof_decks => 1, @options};

    bless $self, $class;
    $self->reshuffle();
    return $self;
}

###########################################
sub reshuffle {
###########################################
    my($self) = @_;

    my @cards =
      (Algorithm::GenerateSequence->new(
       [qw( Heart Diamond Spade Club )],
       [qw( A 2 3 4 5 6 7 8 9 10 J Q K )])
       ->as_list()) x $self->{nof_decks};

    $self->{cards} = shuffle \@cards;
}

###########################################
sub remaining {
###########################################
    my($self) = @_;

    return scalar @{$self->{cards}};
}

###########################################
sub draw_card {
###########################################
    my($self) = @_;

    return shift @{$self->{cards}};
}

#==========================================
package Games::Blackjack::Hand;
#==========================================
use Quantum::Superpositions;
use Log::Log4perl qw(:easy);

###########################################
sub new {
###########################################
    my($class, @options) = @_;

    my $self = { cards => [], @options };

    die "No shoe" if !exists $self->{shoe};
    bless $self, $class;
}

###########################################
sub draw {
###########################################
    my($self) = @_;

    push @{$self->{cards}},
         $self->{shoe}->draw_card();
}

###########################################
sub count {
###########################################
    my($self, $how) = @_;

    my $counts = any(0);

    for(@{$self->{cards}}) {
        if($_->[1] =~ /\d/) {
            $counts += $_->[1];
        } elsif($_->[1] eq 'A') {
            $counts = any(
                map { eigenstates $_ } $counts+1, $counts+11);
        } else {
            $counts += 10;
        }
    }

    DEBUG "counts(before)=$counts";

       # Delete busted hands
    $counts = ($counts <= 21);

    DEBUG "counts(after)=$counts";

       # Busted!!
    return undef if ! eigenstates($counts);

    return $counts unless defined $how;

    if($how eq "hard") {
            # Return minimum
        return int($counts <=
               all(eigenstates($counts)));
    } elsif($how eq "soft") {
            # Return maxium
        return int($counts >=
               all(eigenstates($counts)));
    }
}

###########################################
sub blackjack {
###########################################
    my($self) = @_;

    my $c = $self->count();

    return 0 unless defined $c;

    return 1 if $c == 21 and $c == 11 and
             @{$self->{cards}} == 2;
    return 0;
}

###########################################
sub as_string {
###########################################
    my($self) = @_;

    return "[" . join(',', map({ "@$_" }
                @{$self->{cards}})) .  "]";
}

###########################################
sub count_as_string {
###########################################
    my($self) = @_;

    return $self->busted() ?
     "Busted" : $self->blackjack() ?
     "Blackjack" : $self->count("soft");
}

###########################################
sub busted {
###########################################
    my($self) = @_;

    return ! defined $self->count();
}

###########################################
sub score {
###########################################
    my($self, $dealer) = @_;

    return -1 if $self->busted();

    return 1 if $dealer->busted();

    return 0 if $self->blackjack() and
                $dealer->blackjack();

    return 1.5 if $self->blackjack();

    return -1 if $dealer->blackjack();

    return $self->count("soft") <=>
           $dealer->count("soft");
}

1;

__END__