Funkce pro jedno kolo
Teď využijeme funkci z předchozího cvičení a napíšeme jednu souhrnnou funkci nazvanou evaluate_first_roll, která zajistí průběh celého jednoho kola hry Craps. Jak vidíš v ukázkovém kódu níže, tato funkce přijme první hod střelce jako vstup a podle výsledku pak pokračuje dál. Funkce roll_dice a roll_after_point jsou pro tebe již přednahrány.
Toto cvičení je součástí kurzu
Probability Puzzles in R
Pokyny k cvičení
- Pomocí operátoru
%in%zkontroluj, jestli byl hozen výsledek 7 nebo 11, což znamená okamžitou výhru. - Pomocí operátoru
%in%zkontroluj, jestli byl hozen výsledek 2, 3 nebo 12, což znamená okamžitou prohru. - Pokud je stanoven bod, pokračuj v házení, dokud nedojde buď k opětovnému hození bodu (výhra), nebo k hození 7 (prohra).
Interaktivní cvičení na vyzkoušení si v praxi
Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.
evaluate_first_roll <- function(roll){
# Check whether the first roll gives an immediate win
if(___){
won <- TRUE
}
# Check whether the first roll gives an immediate loss
if(___){
won <- FALSE
}
if(roll %in% c(4,5,6,8,9,10) ){
# Roll until the point or a 7 is rolled and store the win/lose outcome
won <- ___
}
return(won)
}