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
510
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
- 15110974
- 525240
Taas ryssittiin oikein kunnolla
r….ä hyökkäsi Viroon sikaili taas ajattelematta yhtään mitään https://www.is.fi/ulkomaat/art-2000011347289.html452453- 302143
Vanha Suola janottaa Iivarilla
Vanha suola janottaa Siikalatvan kunnanjohtaja Pekka Iivaria. Mies kiertää Kemijärven kyläjuhlia ja kulttuuritapahtumia131721Valtimon Haapajärvellä paatti mäni nurin
Ikävä onnettomuus Haapajärvellä. Vene hörpppi vettä matkalla saaren. Veneessä ol 5 henkilöä, kolme uiskenteli rantaan,421574Tiedän kuka sinä noista olet
Lucky for you, olen rakastunut sinuun joten en reagoi negatiivisesti. Voit kertoa kavereillesi että kyl vaan, rakkautta301251Känniläiset veneessä?
Siinä taas päästiin näyttämään miten tyhmiä känniläiset on. Heh heh "Kaikki osalliset ovat täysi-ikäisiä ja alkoholin v351186Daniel Nummelan linjapuhe 2025
Kansanlähetyksen toiminnanjohtajan Daniel Nummelan linjapuhe tänään. Rehellistä analyysiä mm. evlut kirkosta ja piispo92935TÄSTÄ TAITAA TULLA SUOMEN HISTORIAN SUURIN USKONNONVAPAUDEN OIKEUDENKÄYNTI.
Sinun täytyy hyväksyä se että jos sinä vetoat uskonnonvapauteen, silloin sinun tulee antaa myös muille vastaava vapaus o317892