Perl 6, 43(削除) 43 (削除ここまで) 42 bytes
{|(|(2..10),|<A J Q K>X~ <S D H C>),|<J J>}
{|(|(^9+2),|<A J Q K>X~ <S D H C>),|<J J>}
Expanded:
{ # bare block lambda
|( # flatten into outer list
|( # flatten into left-side list for X~
^9 + 2
# 0+2 ..^ 9+2
# 2 ..^ 1011
# 2 .. 10
),
| # flatten into left-side list for X~
< A J Q K >
X~ # cross using &infix:« ~ » (string concatenation)
<S D H C>
),
|< J J > # flatten two `J`s into outer list
}
Perl 6, 43 bytes
{|(|(2..10),|<A J Q K>X~ <S D H C>),|<J J>}
Expanded:
{ # bare block lambda
|( # flatten into outer list
|( # flatten into left-side list for X~
2 .. 10
),
| # flatten into left-side list for X~
< A J Q K >
X~ # cross using &infix:« ~ » (string concatenation)
<S D H C>
),
|< J J > # flatten two `J`s into outer list
}
Perl 6, (削除) 43 (削除ここまで) 42 bytes
{|(|(2..10),|<A J Q K>X~ <S D H C>),|<J J>}
{|(|(^9+2),|<A J Q K>X~ <S D H C>),|<J J>}
Expanded:
{ # bare block lambda
|( # flatten into outer list
|( # flatten into left-side list for X~
^9 + 2
# 0+2 ..^ 9+2
# 2 ..^ 11
# 2 .. 10
),
| # flatten into left-side list for X~
< A J Q K >
X~ # cross using &infix:« ~ » (string concatenation)
<S D H C>
),
|< J J > # flatten two `J`s into outer list
}
Perl 6, 43 bytes
{|(|(2..10),|<A J Q K>X~ <S D H C>),|<J J>}
Expanded:
{ # bare block lambda
|( # flatten into outer list
|( # flatten into left-side list for X~
2 .. 10
),
| # flatten into left-side list for X~
< A J Q K >
X~ # cross using &infix:« ~ » (string concatenation)
<S D H C>
),
|< J J > # flatten two `J`s into outer list
}