Esimerkiksi PokerStove arvioi muutamassa sekunnin sadasosassa preflop-voittotodennäköisyydet kahden aloituskäden kesken. Kun pakassa on jäljellä 48 korttia, erilaisia viiden kortin yhdistelmiä on (48*47*46*45*44)/(5*4*3*2*1) = 1.712.304 kpl. Tietokoneessani näiden käsien luuppaaminen koodilla
for J := 1 to 44 do
valitse kortti 1
for K := 2 to 45 do
valitse kortti 2
for L := 3 to 46 do
valitse kortti 3
for M := 4 to 47 do
valitse kortti 4
for N := 5 to 48 do
valitse kortti 5
poyta = kortti 1 kortti 2 kortti 3 kortti 4 kortti 5
vie aikaa vajaat 20 sekuntia.
Tavoitteenani on laskea pelaamistani käsistä todennäköisyydet eri panostusvaiheissa, kun showdowniin on edennyt kaksi pelaajaa. Kolme tai useampi ei siis ole välttämätön.
Laskentaan pitäisi saada vauhtia. Millä tavalla sitä pystyisi nopeuttamaan. Esimerkiksi näistä http://forumserver.twoplustwo.com/45/software/7-card-hand-evaluators-597/ jutuista en saa juuri mitään irti. Ne ovat liian vaikeita kotitarveohjelmoitsijalle.
Pokerikäsien arviointi
1
539
Vastaukset
Silmäilepä allaolevaa QBasic-listausta, "väärä tapa" tekee
yli 100-kertaisest i"työtä" verrattuna "oikeaan tapaan".
Delphiä en tunne, mutta oletan FOR-luuppien pyörivän samoin
kuin Basicissakin. Jos näin on, listauksesi ohjelma kehittää
monet "kädet" tarpeettomasti sataan kertaan.
Luuppimuuttujia voi tietenkin käyttää sellaisinaan korttien
paikkojen määrittelyyn, ei niitä tarvitse erikseen sijoittaa
ylimääräisiin muuttujiin.
Pienenä vihjeenä tulevan varalle: Kun olet muutaman vuoden
päästä päässyt vaiheeseen jossa kortteja ja "käsiä" aletaan
vertailla, suosittelen korttien yksilöimistä 13 mittaisilla
yksipainoisten binäärilukujen taulukoilla.
Neljä yksiulotteista taulukkoa, yksi jokaista maata varten,
jokaisessa taulukossa 13 alkiota, joiden ykkösbitin paikka
määrittelee kortin numeron.
Tuon oman listaukseni kehittämien "käsien" määrät
ja ajankulutukset ovat seuraavat:
"Oikea tapa", "käsiä" 2 598 960 kpl, aika 0.49 sek.
"Väärä tapa", "käsiä" 311 875 200 kpl, aika 52.06 sek.
Aikojen suhde : "Väärä tapa"/"oikea tapa" = noin 105.
"Käsien suhde": "Väärä tapa"/"oikea tapa" = 120
REM **********************************************
REM **********************************************
DEFINT A-Z
CLS
DIM kortteja AS LONG
DIM laskuri1 AS LONG
DIM laskuri2 AS LONG
DIM aika1 AS DOUBLE
DIM aika2 AS DOUBLE
DIM aikasuhde AS DOUBLE
DIM laskurisuhde AS DOUBLE
kortteja = 52
REM **********************
REM oikea tapa
REM **********************
aika1 = TIMER
laskuri = 0
FOR J = 1 TO kortteja
FOR K = J 1 TO kortteja
FOR L = K 1 TO kortteja
FOR M = L 1 TO kortteja
FOR N = M 1 TO kortteja
laskuri1 = laskuri1 1
NEXT N: NEXT M: NEXT L: NEXT K: NEXT J
aika1 = TIMER - aika1
PRINT aika1, laskuri1
REM **********************
REM väärä tapa
REM **********************
aika2 = TIMER
laskuri2 = 0
FOR J = 1 TO kortteja
FOR K = 2 TO kortteja
FOR L = 3 TO kortteja
FOR M = 4 TO kortteja
FOR N = 5 TO kortteja
laskuri2 = laskuri2 1
NEXT N: NEXT M: NEXT L: NEXT K: NEXT J
aika2 = TIMER - aika2
PRINT aika2, laskuri2
aikasuhde = aika2 / aika1
laskurisuhde = laskuri2 / laskuri1
PRINT aikasuhde, laskurisuhde
END
REM **********************************************
REM **********************************************
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
S-kauppa nosti hintoja, K-kauppa laski
Elintarvikkeiden arvonlisävero laski vuodenvaihteessa 13,5 prosenttiin. S-kauppa siirsi alennuksen suoraan katteisiin pi1657562Hiihtäjä Vilma Nissisen kommentit aiheutti paniikkia
ja hernettä vedettiin nenään. Nissinen kertoi torstaina haastattelussa, kun häneltä kysyttiin, että tykkääkö hän hiihtä1305199Huuto yltyy persujen piirissä Venezuelan johdosta.
Kohta kakofonia yltyy kun persut tajuavat mitä Venezuelassa tapahtui. Von den Leydenki jo kipuilee kuten persut EU:ssa y432680- 2712318
Nyt ottaa persua pattiin: sähköauto joulukuun myydyin
🤣 prööt prööt pakoputkellaan pörisevää persua ottaa nyt saamaristi pattiin, kun paristoilla kulkeva sähköauto on noussu812218Ovatko Perussuomalaiset kommunisteja?
Toiset sanovat että ovat, toiset sanovat että eivät. Ainakin heillä on paljon sen aatteen piirteitä, koska haluavat kont702092Yhdysvaltain hyökkäys Venezuelaan on YK:n peruskirjan mukaan laiton hyökkäyssota
Oman sävynsä tähän tuo vielä se, että hyökkäys kohdistettiin nimenomaan valtiojohtoa vastaan. Toki, kun tavoitteena on v5672065Ei tule uni
Kuten epäilin. Onneksi viime yön sain ihan hyvin nukutuksi. Tiesin kyllä, ettei tästä mitään tänään tule.571126Miksi juuri Venezuela?
Kaikista maailman valtioista Trump otti silmätikukseen Venezuelan. Mutta minkä ihmeen takia? Kyseessä on kuitenkin vähäp2911087Laittaisin whatsuppissa viestin
Jos olisin täysin varma että se on toivottua vielä kun aikaa on mennyt ja että toivot sitä edelleen.661075