Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

shuffling a deck of cards

• To: mathgroup at smc.vnet.net
• Subject: [mg31768] shuffling a deck of cards
• From: peterangelo at mindspring.com (Peter Dimitriou)
• Date: Sat, 1 Dec 2001 02:45:15 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

To Whom it may concern,

the following is a deck of cards that needs to be shuffled, how would
I do this using the Sort Command

Clubset=Array[clubs, 13]

{clubs[1],clubs[2],clubs[3],clubs[4],clubs[5],clubs[6],clubs[7],clubs[8],
  clubs[9],clubs[10],clubs[11],clubs[12],clubs[13]}

Diamondset=Array[diamonds, 13]

{diamonds[1],diamonds[2],diamonds[3],diamonds[4],diamonds[5],diamonds[6],
  diamonds[7],diamonds[8],diamonds[9],diamonds[10],diamonds[11],diamonds[12],
  diamonds[13]}

Spadeset=Array[Spade, 13]

{Spade[1],Spade[2],Spade[3],Spade[4],Spade[5],Spade[6],Spade[7],Spade[8],
  Spade[9],Spade[10],Spade[11],Spade[12],Spade[13]}

Heartset=Array[Heart, 13]

{Heart[1],Heart[2],Heart[3],Heart[4],Heart[5],Heart[6],Heart[7],Heart[8],
  Heart[9],Heart[10],Heart[11],Heart[12],Heart[13]}

FullDeck=Sort[Join[{Heartset},{Spadeset}, {Diamondset}, {Clubset}]]

{{clubs[1],clubs[2],clubs[3],clubs[4],clubs[5],clubs[6],clubs[7],clubs[8],
    clubs[9],clubs[10],clubs[11],clubs[12],clubs[13]},{diamonds[1],
    diamonds[2],diamonds[3],diamonds[4],diamonds[5],diamonds[6],diamonds[7],
    diamonds[8],diamonds[9],diamonds[10],diamonds[11],diamonds[12],
    diamonds[13]},{Heart[1],Heart[2],Heart[3],Heart[4],Heart[5],Heart[6],
    Heart[7],Heart[8],Heart[9],Heart[10],Heart[11],Heart[12],
    Heart[13]},{Spade[1],Spade[2],Spade[3],Spade[4],Spade[5],Spade[6],
    Spade[7],Spade[8],Spade[9],Spade[10],Spade[11],Spade[12],Spade[13]}}

How do I shuffle FullDeck using the Sort Command so it is all mixed
up?

Peterangelo

• Follow-Ups:
  • Re: shuffling a deck of cards
    • From: Daniel Lichtblau <danl@wolfram.com>