Re: [FWP] Perl Card Games

[Gaal Yahas <gaal@forum2.org>]

On Wed, Aug 04, 1999 at 10:24:15AM -0400, Matthew Bafford wrote:

> > Oops! What about "10"? Otherwise your deck has only 48 or 50 cards.
> 
> Youch!
> 
> Well:
>                    8 =>  8, 9 =>  9, 10 => 10, J => 11, Q => 12, K => 13,
>                    A => 13,

Why waste characters<tm>[1]?

%cards = ( sort(1..10,1..10),  J => 11, Q => 12, K => 13, A => 14, );
#                                                and note A != K :-)

[1] see http://www.forum2.org/cgi-bin/opest [2], but please approach
    with joviality. For entertainment only etc. etc.
[2] can anyone offer a rhyming algorithm? :-)

-- 
believing is seeing
gaal@forum2.org
http://www.forum2.org/gaal/

==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe