Re: shuffling a deck of cards

• To: mathgroup at smc.vnet.net
• Subject: [mg31781] Re: shuffling a deck of cards
• From: "Bart van der Wolf" <bvdwolf at nospam.nl>
• Date: Sun, 2 Dec 2001 04:24:53 -0500 (EST)
• References: <9ua3bv\$17h\$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```"Peter Dimitriou" <peterangelo at mindspring.com> 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]}
>
>
>
> 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]}
>
>
> {{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],
>
> How do I shuffle FullDeck using the Sort Command so it is all mixed
> up?

I am not sure why you set the FullDeck up as an Array instead of a List, but
perhaps this method helps solving your question:

For[fd=Flatten[FullDeck]; i=52, i>1, i--,
j=Random[Integer, {1, i}]; {fd[[i]], fd[[j]]}={fd[[j]], fd[[i]]}];
Clear[i,j];

Now fd is a shuffled list (not an array as you set it up). You may want to
include SeedRandom[n] if you want to reproduce a shuffle or avoid it.
Increasing the startvalue i=52 with multiples of 52 will allow to shuffle
multiple decks.

Bart

```

• Prev by Date: Re: shuffling a deck of cards
• Next by Date: Re: Path finding in graph theory, Lookig for your help,
• Previous by thread: Re: shuffling a deck of cards
• Next by thread: RE: shuffling a deck of cards