Chas. Owens wrote:
On Sun, Apr 12, 2009 at 21:58, Gunnar Hjalmarsson nore...@gunnar.cc wrote:
Chas. Owens wrote:
my @rank = qw/ 2 3 4 5 6 7 8 9 10 J Q K A /;
my @rank = qw/A 2 3 4 5 6 7 8 9 10 J Q K A /;
--^
snip
That depends on who you play with.
Ok.
Also, if you
On Mon, Apr 13, 2009 at 06:12, Gunnar Hjalmarsson nore...@gunnar.cc wrote:
snip
Also, if you make that change you need to check the for loop as well:
for my $i (0 .. 10) {
Actually no.
$ perl -wle '
@rank = qw/A 2 3 4 5 6 7 8 9 10 J Q K A/;
print map $_.[cdhs], @rank[10..10+4];
'
Use of
Hello everyone,
I have a program that needs to find straights in a hand of cards. The hand
is a string with no whitespace sorted by the cards' ranks, eg 9d10cJhQsKd.
How can I identify if that hand contains a straight with a single regex? Is
that even possible?
Is there a way to escape the regex
Andrew Fithian wrote:
I have a program that needs to find straights in a hand of cards.
Only straights?
The hand is a string with no whitespace sorted by the cards' ranks,
eg 9d10cJhQsKd. How can I identify if that hand contains a straight
with a single regex?
Why on earth would you want
On Sun, Apr 12, 2009 at 18:34, Andrew Fithian afit...@gmail.com wrote:
Hello everyone,
I have a program that needs to find straights in a hand of cards. The hand
is a string with no whitespace sorted by the cards' ranks, eg 9d10cJhQsKd.
How can I identify if that hand contains a straight with
Chas. Owens wrote:
my @rank = qw/ 2 3 4 5 6 7 8 9 10 J Q K A /;
my @rank = qw/A 2 3 4 5 6 7 8 9 10 J Q K A /;
--^
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands,
On Sun, Apr 12, 2009 at 21:58, Gunnar Hjalmarsson nore...@gunnar.cc wrote:
Chas. Owens wrote:
my @rank = qw/ 2 3 4 5 6 7 8 9 10 J Q K A /;
my @rank = qw/A 2 3 4 5 6 7 8 9 10 J Q K A /;
--^
snip
That depends on who you play with. Also, if you make that change you
need to