*combine_one
=
*Telephone::Mnemonic::US::Math::combine_one
;
*combinethem
=
*Telephone::Mnemonic::US::Math::combinethem
;
*sets2candidates
=
*Telephone::Mnemonic::US::Math::sets2candidates
;
my
$two
= [ [
qw/d e f/
], [
qw/d e f/
] ] ;
my
$ans2
= [
qw/ dd de df ed ee ef fd fe ff /
];
my
$three
= [ [
qw/a b c/
], [
qw/d e f/
], [
qw/d e f/
] ] ;
is_deeply combine_one(
'i'
, [
qw/a b/
]) , [
qw/ ia ib/
];
is_deeply combine_one(
'i'
, []) , [
qw/ /
];
is_deeply combinethem( [
'i'
], [
qw/a b/
]) , [
qw/ ia ib/
];
is_deeply combinethem( [
qw/i j/
], [
qw/a b/
]) , [
qw/ ia ib ja jb/
];
is_deeply combinethem( [
qw/ i z/
], []) , [
qw/i z /
];
is
scalar
@{sets2candidates(
$three
)} , 27;
is_deeply sets2candidates(
$two
),
$ans2
;
exit
;
my
$boat
= [ [
'm'
,
'n'
,
'o'
], [
'a'
,
'b'
,
'c'
], [
't'
,
'u'
,
'v'
] ];
say
Dumper [ @{sets2candidates(
$boat
)} ];