Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2001
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2001

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

Search the Archive

Re: shuffling a deck of cards

  • To: mathgroup at smc.vnet.net
  • Subject: [mg31786] Re: shuffling a deck of cards
  • From: bghiggins at ucdavis.edu (Brian Higgins)
  • Date: Sun, 2 Dec 2001 04:25:00 -0500 (EST)
  • References: <9ua3bv$17h$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Peterangelo

Try this,

<< DiscreteMath`Combinatorica`

shuffleDeck = Map[Flatten[FullDeck][[#]] &, RandomPermutation[52]]

Cheers,

Brian


peterangelo at mindspring.com (Peter Dimitriou) wrote in message news:<9ua3bv$17h$1 at smc.vnet.net>...
> 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


  • Prev by Date: Re: Weird trigonometric integral and Simplification question
  • Next by Date: Re: shuffling a deck of cards
  • Previous by thread: Re: shuffling a deck of cards
  • Next by thread: Re: shuffling a deck of cards