/ 
Dreamhack-Solitaire-Medici-0.01
River stage zero No dependents
/ Dreamhack::Solitaire::Medici

NAME

Dreamhack::Solitaire::Medici - Kit for Solitaire Medici

SYNOPSIS

use Dreamhack::Solitaire::Medici;

my $sol = Dreamhack::Solitaire::Medici->new();
$sol->init_layout([qw(Jh ? Ac 10s ? ? Kd)]);
$sol->process() or die 'Cannot build solitaire, attempts count: ', $sol->{'attempts'};

print $sol->format();
print "Attempts count: ", $sol->{'attempts'}, "\n";

or, for empty starting layout:

print Dreamhack::Solitaire::Medici->new()->process()->format();

or, for russian programmers:

print Dreamhack::Solitaire::Medici->new(lang=>'ru_RU.utf8')->process()->format();
In this case you mast use cyrrilic cards abbr for init layout.

DESCRIPTION

The Solitaire Medici, particular using by dreamhackers/stalkers for reality management. Chain creation carried out by bruteforce method with max attempts count one hundred thousand (default) or your own value. Starting layout between 0 and 36 cards.

ABBR FOR DECK

Suits

s - Spades

c - Clubs

d - Diamonds

h - Hearts

Valences

A - Ace

K - King

Q - Queen

J - Jack

and 6, 7, 8, 9, 10

Example: Qs, 7d

METHODS

new [ %options ]

Constructor. Takes a hash with options as an argument.

my $sol = Dreamhack::Solitaire::Medici->new(
    lang => 'ru_RU.utf8', # English if empty (default), Russian or another languages in future (may be), optional
    suits => ['_spades', '_clubs', '_diamonds', '_hearts'], # you own suits for deck, in this case lang ignored, optional
    valence => ['2','3','4','5','6','7','8','9','10',], # you own valences for deck, optional
);
init_layout $arrayref

Takes an array reference with starting layout as an argument. Arbitrary card in layout denoted as '?', or '', or null:

$sol->init_layout([qw(? ? ? Qs)]);
parse_init_string $string

Auxiliary method. Converts layout string into an array for init_layout. Symbols '[' and ']' - optional, marks the bounds of convolution.

my @layout = $sol->parse_init_string('[Qd 7c 9s Qs Js][9d Ad Kd][8c 6s 10d 8s][Kc Qh 7s 6d 10s][Ah 6c 7h][7d As Jd][Ks][6h Jh Jc Qc 9h 9c][Kh][Ac][8h][10c][8d][10h]');
$sol->init_layout(\@layout);
process [ %options ]

Build the solitaire. Takes a hash with options as an argument. Returns self object if success or undef value otherwise. The result is placed into an array reference $sol->{'layout'}, committed number of attempts - into $sol->{'attempts'}.

$sol->process(
    attempts => 500, # max number of attempts for build solitaire, optional, default 100000
) or die 'Cannot build solitaire, attempts count: ', $sol->{'attempts'};
format

Returns nice looking string for result printing.

print $sol->format();

LICENSE

Copyright (C) gugo.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

AUTHOR

gugo <gugo@cpan.org>