And so I continue tweaking....but it's not returning any cards now. I can get 5 now, but no out put. not exactly sure what i'm missing now. <br><br>
<div class="gmail_quote">On Wed, Apr 2, 2008 at 6:24 PM, Emmanuel Mejias <<a href="mailto:emmanuel.mejias@gmail.com">emmanuel.mejias@gmail.com</a>> wrote:<br>
<blockquote class="gmail_quote" style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">okay...tweaked s'more...couldn't get it to print out 5, so let's hope he's okay with six.<br>
<br>#!/usr/bin/perl -w<br><br>@mydeck = ("A H","2 H","3 H","4 H","5 H","6 H","7 H","8 H",
<div class="Ih2E3d"><br> "9 H","10 H","J H","Q H","K H",<br> "A D","2 D","3 D","4 D","5 D","6 D","7 D","8 D",<br>
"9 D","10 D","J D","Q D","K D",<br> "A C","2 C","3 C","4 C","5 C","6 C","7 C","8 C",<br>
"9 C","10 C","J C","Q C","K C",<br> "A S","2 S","3 S","4 S","5 S","6 S","7 S","8 S",<br>
"9 S","10 S","J S","Q S","K S");<br></div>
<p>my $top5 = 0;</p>
<p>foreach $card (@mydeck){<br> push (@top5, shift(@mydeck));<br> push (@top5, pop(@mydeck));<br>}<br>while ($top5 <= 4) {<br> print "$card\n";<br> $top5++;<br>}<br></p>
<div>
<div class="Wj3C7c"><br><br><br><br>
<div class="gmail_quote">On Wed, Apr 2, 2008 at 3:14 PM, Emmanuel Mejias <<a href="mailto:emmanuel.mejias@gmail.com" target="_blank">emmanuel.mejias@gmail.com</a>> wrote:<br>
<blockquote class="gmail_quote" style="PADDING-LEFT: 1ex; MARGIN: 0pt 0pt 0pt 0.8ex; BORDER-LEFT: rgb(204,204,204) 1px solid">I made the following changes....<br><br>
<div class="gmail_quote">
<div>On Wed, Apr 2, 2008 at 3:10 PM, Emmanuel Mejias <<a href="mailto:emmanuel.mejias@gmail.com" target="_blank">emmanuel.mejias@gmail.com</a>> wrote:<br></div>
<blockquote class="gmail_quote" style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: rgb(204,204,204) 1px solid">
<div>
<div>My instructor has asked me to use the pop, shift, and push functions to write a script that sufficiently "shuffles" a simulated deck of cards before printing the top five cards. I haven't quite got it down, but I was wondering, did I need to add the highlighted line in my code or something along those lines to indicate $element = pop (@deck) or is that what I'm using "push" for? Now it does pop A H to the bottom of the deck. So what exactly is it that I'm doing wrong?</div>
<div> </div>
<div>#!/usr/bin/perl -w</div>
<div>@deck = ("A H","2 H","3 H","4 H","5 H","6 H","7 H","8 H",<br> "9 H","10 H","J H","Q H","K H",<br>
"A D","2 D","3 D","4 D","5 D","6 D","7 D","8 D",<br> "9 D","10 D","J D","Q D","K D",<br>
"A C","2 C","3 C","4 C","5 C","6 C","7 C","8 C",<br> "9 C","10 C","J C","Q C","K C",<br>
"A S","2 S","3 S","4 S","5 S","6 S","7 S","8 S",<br> "9 S","10 S","J S","Q S","K S");</div>
</div>
<div>foreach my $card (@deck){</div></blockquote>
<div> chomp (@mydeck);<br> push (@mydeck, pop(@mydeck));<br> push (@mydeck, shift(@mydeck));<br> print "Cards: $card\n"<br>}<br></div></div><br></blockquote></div><br></div></div></blockquote>
</div><br>