Skip to main content
We’ve updated our Terms of Service. A new AI Addendum clarifies how Stack Overflow utilizes AI interactions.
Code Golf

Return to Answer

Add example from Jo King
Source Link

Perl 6, 43(削除) 43 (削除ここまで) 42 bytes

{|(|(2..10),|<A J Q K>X~ <S D H C>),|<J J>}

Try it

{|(|(^9+2),|<A J Q K>X~ <S D H C>),|<J J>}

Try it from Jo King

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>}

Try it

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>}

Try it

{|(|(^9+2),|<A J Q K>X~ <S D H C>),|<J J>}

Try it from Jo King

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
}
Source Link

Perl 6, 43 bytes

{|(|(2..10),|<A J Q K>X~ <S D H C>),|<J J>}

Try it

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
}

AltStyle によって変換されたページ (->オリジナル) /