Playing cards: Difference between revisions
Content added Content deleted
m (→{{header|Go}}: library changes) |
|||
Line 1,738: | Line 1,738: | ||
deal deal(`b') |
deal deal(`b') |
||
show(`b')</lang> |
show(`b')</lang> |
||
=={{header|Mathematica}}== |
|||
<lang Mathematica>MakeDeck[] := Tuples[{{"Ace ", 2, 3 , 4 , 5, 6 , 7 , 8 , 9 , 10, "Jack" , "Queen", "King"}, {♦ , ♣, ♥ , ♠}}] |
|||
DeckShuffle[deck_] := RandomSample[deck, Length@deck] |
|||
DealFromDeck[] := (Print@First@deck; deck = deck[[2 ;; All]];)</lang> |
|||
Example usage: |
|||
<pre>deck = DeckShuffle@MakeDeck[]; Print[deck] |
|||
->{{10,♥},{10,♦},{5,♣},{7,♠},{4,♦},{8,♦},{4,♠},{Queen,♠},{5,♠},{4,♥},{9,♦},{King,♥},{2,♦},{Ace ,♦}, |
|||
{3,♣},{6,♦},{Jack,♣},{10,♠},{2,♠},{3,♠},{9,♠},{King,♠},{Queen,♥},{8,♣},{King,♦},{6,♣},{4,♣},{Jack,♦}, |
|||
{5,♦},{Ace ,♣},{2,♣},{8,♥},{Jack,♠},{5,♥},{7,♣},{8,♠},{King,♣},{Queen,♦},{9,♥},{Ace ,♥},{3,♦},{7,♥}, |
|||
{Queen,♣},{10,♣},{3,♥},{2,♥},{Jack,♥},{7,♦},{6,♠},{6,♥},{Ace ,♠},{9,♣}} |
|||
DealFromDeck[] |
|||
DealFromDeck[] |
|||
DealFromDeck[] |
|||
->{10,♥} |
|||
->{10,♦} |
|||
->{5,♣} |
|||
Print[deck] |
|||
->{{7,♠},{4,♦},{8,♦},{4,♠},{Queen,♠},{5,♠},{4,♥},{9,♦},{King,♥},{2,♦},{Ace ,♦},{3,♣},{6,♦},{Jack,♣}, |
|||
{10,♠},{2,♠},{3,♠},{9,♠},{King,♠},{Queen,♥},{8,♣},{King,♦},{6,♣},{4,♣},{Jack,♦},{5,♦},{Ace ,♣},{2,♣}, |
|||
{8,♥},{Jack,♠},{5,♥},{7,♣},{8,♠},{King,♣},{Queen,♦},{9,♥},{Ace ,♥},{3,♦},{7,♥},{Queen,♣},{10,♣}, |
|||
{3,♥},{2,♥},{Jack,♥},{7,♦},{6,♠},{6,♥},{Ace ,♠},{9,♣}}</pre> |
|||
=={{header|MUMPS}}== |
=={{header|MUMPS}}== |