File Coverage

blib/lib/Dreamhack/Solitaire/Medici.pm

Criterion	Covered	Total	%
statement	55	56	98.2
branch	10	12	83.3
condition	7	9	77.7
subroutine	9	9	100.0
pod	1	1	100.0
total	82	87	94.2

package Dreamhack::Solitaire::Medici;
use 5.008001;
use strict;
use warnings;
no warnings 'recursion';

use base 'Dreamhack::Solitaire';
use Dreamhack::Solitaire;

our $VERSION = "0.01";

sub process {
    my ($self, %args) = @_;

    my $imax = (exists $args{'attempts'}) && ($args{'attempts'} =~ m/^[1-9]\d*$/) ? $args{'attempts'} : $self->_iterations(1+$#{$self->{'leftcards'}});

    for my $i (1..$imax) {

        my @layout = $self->add_rnd_layout();
        my @save = @layout;
        my @work = ();

        my $cardno = 0;
        while (@layout) {
            my $el = shift @layout;
            push @work, $el;
            @work = $self->_pass(0, \@work, $cardno++);
        }

        $self->{'attempts'} = $i;
        if ($#work <= 1) {
            $self->{'layout'} = \@save;
            return $self;
        }
        $self->{'convolution'} = [];
    }
    return undef;
}

sub _pass {
    my ($self, $offset, $work, $cardno) = @_;
    my @work = @$work;

    if (($offset >=0) && ($#work - $offset >= 2)) {
        my ($vr, $sr) = $self->extract($work[$#work - $offset]);
        my ($vl, $sl) = $self->extract($work[$#work - $offset - 2]);
        if (($vl eq $vr) or ($sl eq $sr)) {
            $work[$#work - $offset - 2] = $work[$#work - $offset - 1];
            splice @work, $#work - $offset - 1, 1;
            if ($cardno) {
                push @{$self->{'convolution'}}, $cardno;
            }
            @work = $self->_pass($#work-2, \@work);
        }
        else {
            @work = $self->_pass(--$offset, \@work);
        }
    }
    else {
        return @work
    }
    return @work
}

sub _iterations {
    my ($self, $cardscount) = @_;

    my $imax = 0;
    if ($cardscount <= 1) {
        $imax = 1;
    }
    else {
        $imax = 100_000;
    }
    return $imax
}

1;
__END__