Korttipakka

No, niinpä tietenkin ! Yksinkertaista.

jos (päällekopioinnin sijaan) VAIHDAT pakan kortit keskenään, siis taulukon viimeisen elementin ja arvotun elementin, taulukkoa ei tarvitse alustaa mitenkään kun pakka sekoitetaan. Riittää, että asetat satunnaislukugeneraattorin maksimin osoittamaan täyttä pakkaa.

Sinivuokko kirjoitti:

jos (päällekopioinnin sijaan) VAIHDAT pakan kortit keskenään, siis taulukon viimeisen elementin ja arvotun elementin, taulukkoa ei tarvitse alustaa mitenkään kun pakka sekoitetaan. Riittää, että asetat satunnaislukugeneraattorin maksimin osoittamaan täyttä pakkaa.

Lue lisää

#include

#define HERTTA   (0*16)
#define RUUTU   (1*16)
#define RISTI   (2*16)
#define PATA   (3*16)

typedef unsigned char Kortti;

Kortti Pakka[] =
{
   HERTTA 1, HERTTA 2, HERTTA 3, HERTTA 4, HERTTA 5,
   HERTTA 6, HERTTA 7, HERTTA 8, HERTTA 9, HERTTA 10,
   HERTTA 11, HERTTA 12, HERTTA 13,
   RUUTU 1, RUUTU 2, RUUTU 3, RUUTU 4, RUUTU 5,
   RUUTU 6, RUUTU 7, RUUTU 8, RUUTU 9, RUUTU 10,
   RUUTU 11, RUUTU 12, RUUTU 13,
   PATA 1, PATA 2, PATA 3, PATA 4, PATA 5,
   PATA 6, PATA 7, PATA 8, PATA 9, PATA 10,
   PATA 11, PATA 12, PATA 13,
   RISTI 1, RISTI 2, RISTI 3, RISTI 4, RISTI 5,
   RISTI 6, RISTI 7, RISTI 8, RISTI 9, RISTI 10,
   RISTI 11, RISTI 12, RISTI 13
};
unsigned KorttejaPakassa = 52;

#define SekoitaPakka() KorttejaPakassa = 52


Kortti KorttiPakasta(void)
{
   Kortti k=0;
   if (KorttejaPakassa)
   {
      unsigned i, m=RAND_MAX/KorttejaPakassa;
      for (m *= KorttejaPakassa; (i=rand()) >= m;);
      k = Pakka[i %= KorttejaPakassa--];
      Pakka[i] = Pakka[KorttejaPakassa];
      Pakka[KorttejaPakassa] = k;
   }
   return(k);
}