Playing cards: Difference between revisions

Content added Content deleted
Line 366: Line 366:


<syntaxhighlight lang="apl">
<syntaxhighlight lang="apl">
⍝2023-02-18

deck←,'23456789TJQKA'∘.,'CDSH'
deck←,'23456789TJQKA'∘.,'CDSH'
shuffle←{⍵[?⍨⍴⍵]}
shuffle←{⍵[?⍨⍴⍵]}
Line 376: Line 374:
deck
deck
2C 2D 2S 2H 3C 3D 3S 3H 4C ..
2C 2D 2S 2H 3C 3D 3S 3H 4C ..
shuffle deck
deck←shuffle deck
7H 3D 2H 9D KS 7C JH TC JS ..
7H 3D 2H 9D KS 7C JH TC JS ..
5↑deck
5↑deck