http://www.perlmonks.org?node_id=998874


in reply to Simple Blackjack progam help

There are a few points of which to beware. First, I believe (this needs checking & I'm not going to do it today) that in Blackjack, an Ace can count as 1 or 11. Second, the odds of drawing a card of a given value are not the same, either at any time or at all times. That needs explanation in two parts. (A) Of the 52 cards in a pack, there are 16 with a value of 10. (B) After you have drawn one card, the odds change, so that if you have a deck of one pack, the chance of drawing a card with a value of 10 is 16/52. But once you have drawn one, the odds change to 15/51, and so on (if you draw a non-10, the odds change to 16/51 - still different). Finally, I believe that casinos use a deck of six packs, although this may have changed since the days of Strategic Investments (JFGI - you can legally beat the house at Blackjack).

However many packs you include in your deck, you might well start with the standard dealing algorithm I demonstrated in Re: Random data generation. and Re: getting random number 8 times never the same, although you will need to amend it to deal cards one by one rather than use the $length variable I used in those.

Regards,

John Davies