Re: shuffling cards

I dont understand why you dont like your solution?

whats wrong at 3 H 4 H 5 H 6 H 7 H?

On Thu, 28 Jun 2007 12:59:21 +0300
"Amichai Teumim" <amichai@xxxxxxxxxx> wrote:

Yeah I don't mind cheating in this one ;)

I just need the top five cards printed, even if the same each time.

Any ideas?

On 6/28/07, Martin Barth <martin@xxxxxxxxxx> wrote:

Hi,

If you don't use rand() you will allways get the same result after
shuffeling. Is that OK for you?
( you're cheating in card games, right? *eg* )

On Thu, 28 Jun 2007 12:37:29 +0300
"Amichai Teumim" <amichai@xxxxxxxxxx> wrote:

Thanks for all the answers. I know there are other better ways of doing
this
shuffle. I must however, use pop shift ans push.

#!/usr/bin/perl

@startingdeck = ("A H","2 H","3 H","4 H","5 H","6 H","7 H","8 H",
"9 H","10 H","J H","Q H","K H",
"A D","2 D","3 D","4 D","5 D","6 D","7 D","8 D",
"9 D","10 D","J D","Q D","K D",
"A C","2 C","3 C","4 C","5 C","6 C","7 C","8 C",
"9 C","10 C","J C","Q C","K C",
"A S","2 S","3 S","4 S","5 S","6 S","7 S","8 S",
"9 S","10 S","J S","Q S","K S");

for ($x=0;$x<100;$x++){

$shuffle1 = shift(@startingdeck);
$ahuffle2 = shift(@startingdeck);
$ahuffle3 = pop(@startingdeck);
$ahuffle4 = pop(@startingdeck);

push(@startingdeck,$shuffle1,$shuffle3,$shuffle2,$shuffle4);
print "@startingdeck\n";
}

I get it all shuffled up the way I want. I just want now the top five
cards
printed. Which when running this script:

3 H 4 H 5 H 6 H 7 H

Anyway of doing that without changing all the pushing, shifing and
popping?

Thanks for all your help. I've been stuck on this for days (or is it a
week
already?)

Amichai

--
To unsubscribe, e-mail: beginners-unsubscribe@xxxxxxxx
For additional commands, e-mail: beginners-help@xxxxxxxx
http://learn.perl.org/



.

Relevant Pages

  • How to save VtES?
    ... First of all i dont want this to degenerate into a flame war, ... just look at the number of players attending tournaments: ... didn´t really get cards that they could need or trade. ... your great cock deck norm) taking up a lot of rare slots, ...
    (rec.games.trading-cards.jyhad)
  • Re: hardware crypto and SSL?
    ... > Dont know about http ssl, but I am using the cards from Soekris for my ... The next generation cards supposedly have ... The new VIA Eden-N processors have built in high-speed AES encryption ...
    (FreeBSD-Security)
  • Re: hardware crypto and SSL?
    ... > Dont know about http ssl, but I am using the cards from Soekris for my ... > public key generation, but I dont think the driver will do the public key ... The safe driver says it does, but I dont know where to get such cards. ...
    (FreeBSD-Security)
  • Re: 420 pinballer gets all the action
    ... actually, because of dinotheo, i found this website, and became a ... I dont bash on anybody, ... I only relisted the cards, ... I was just having a little fun with him.. ...
    (rec.games.pinball)
  • Re: how supported are 3ware Escalade controllers?
    ... > If you are putting together a new system, I would look at the SATA series ... > of their cards, the 8000. ... I dont have any experience yet with their newer ... page implies that the 7000 and 8000 series is not supported, ...
    (freebsd-current)