BEGIN { plan
tests
=> 31 }
ok(1);
my
%pdat
= PDat();
my
$summ
= 0;
$summ
+=
$_
->[1]
foreach
(@{
$pdat
{
'hndz'
}});
ok(
$summ
,
$pdat
{
'coun'
}{
'hands'
});
my
@bord
=
qw( 9s 3d Ks 3c Kc )
;
RemoveCard(
'9s'
, \
@bord
);
my
$bord
=
"@bord"
;
ok(
$bord
,
'3d Ks 3c Kc'
);
RemoveCard(
'3c'
, \
@bord
);
$bord
=
"@bord"
;
ok(
$bord
,
'3d Ks Kc'
);
RemoveCard(
'Ks'
, \
@bord
);
$bord
=
"@bord"
;
ok(
$bord
,
'3d Kc'
);
my
$wrst
= WorstHand(
'AA'
);
ok(
$wrst
,
'AA432'
);
$wrst
= WorstHand(
'AK'
);
ok(
$wrst
,
'AK432'
);
$wrst
= WorstHand(
'32'
);
ok(
$wrst
,
'75432'
);
$wrst
= WorstHand(
'32s'
);
ok(
$wrst
,
'75432'
);
$wrst
= WorstHand(
'As'
,
'Ah'
);
ok(
$wrst
,
'AA432'
);
$wrst
= WorstHand(
'As'
,
'Kh'
);
ok(
$wrst
,
'AK432'
);
$wrst
= WorstHand(
'3s'
,
'2h'
);
ok(
$wrst
,
'75432'
);
$wrst
= WorstHand(
'3s'
,
'2s'
);
ok(
$wrst
,
'75432'
);
$wrst
= WorstHand(
'As'
,
'Ah'
,
'Kh'
,
'Qh'
,
'Jh'
,
'Th'
,
'7s'
);
ok(
$wrst
,
'AKQJTs'
);
$wrst
= WorstHand(
'As'
,
'Ah'
,
'Kh'
,
'Qh'
,
'Jh'
,
'Td'
,
'7s'
);
ok(
$wrst
,
'AKQJT'
);
$wrst
= WorstHand(
'As'
,
'Ad'
,
'Ac'
,
'Ah'
,
'Kh'
,
'Qh'
,
'Jh'
,
'Td'
,
'7s'
);
ok(
$wrst
,
'AAAAK'
);
$wrst
= WorstHand(
'As'
,
'Ad'
,
'Ac'
,
'Kh'
,
'Qh'
,
'Jh'
,
'8d'
,
'7s'
);
ok(
$wrst
,
'AAAKQ'
);
$wrst
= WorstHand(
'As'
,
'Ad'
,
'Kh'
,
'Qh'
,
'Jh'
,
'8d'
,
'7s'
);
ok(
$wrst
,
'AAKQJ'
);
my
%zdnh
= Zdnh();
my
$coun
=
$zdnh
{
'AKQJTs'
};
ok(
$coun
, 0);
$coun
= CountWays(
$zdnh
{
'KKKKJ'
});
ok(
$coun
, 100);
$coun
= CountWays(
$zdnh
{
'AKQJTs'
});
ok(
$coun
, 4);
$coun
= CountWays(
$zdnh
{
'KQJT9s'
});
ok(
$coun
, 8);
$coun
= CountWays(
$zdnh
{
'AKQJT'
});
ok(
$coun
, 10536);
$coun
= CountWays(
$zdnh
{
'AAAAK'
});
ok(
$coun
, 44);
$coun
= CountWays(
$zdnh
{
'AAAKQ'
});
ok(
$coun
, 19780);
$coun
= CountWays(
$zdnh
{
'AAKQJ'
});
ok(
$coun
, 198564);
$coun
= CountWays(7461);
ok(
$coun
, 2598960);
ok(
$coun
,
$pdat
{
'coun'
}{
'hands'
});
$coun
= CountWays(9999);
ok(
$coun
, 2598960);
$coun
= CountWays(
$zdnh
{
'87432'
});
ok(
$coun
, 2589780);
$coun
=
scalar
(@{
$pdat
{
'flpz'
}});
ok(
$coun
,
$pdat
{
'coun'
}{
'shorthand_flops'
});