Offer and Resolve Insurance Bet — insurance

If the dealer's upcard is an Ace, allows the player to take insurance. Insurance pays 2:1 if the dealer has a Blackjack.

Usage

insurance_bet(dealer_hand, player_accepts)

Arguments

dealer_hand: A character vector of two cards (e.g., c("A♠", "10♦"))
player_accepts: Logical, TRUE if player accepts insurance

Value

A list with insurance_available, insurance_paid, payout, blackjack

Examples

insurance_bet(c("A♠", "10♣"), player_accepts = TRUE)
#> $insurance_available
#> [1] TRUE
#> 
#> $insurance_paid
#> [1] TRUE
#> 
#> $payout
#> [1] 2
#> 
#> $blackjack
#> [1] TRUE
#> 
insurance_bet(c("A♠", "8♣"), player_accepts = TRUE)
#> $insurance_available
#> [1] TRUE
#> 
#> $insurance_paid
#> [1] TRUE
#> 
#> $payout
#> [1] -1
#> 
#> $blackjack
#> [1] FALSE
#> 
insurance_bet(c("9♠", "10♣"), player_accepts = TRUE)
#> $insurance_available
#> [1] FALSE
#> 
#> $insurance_paid
#> [1] FALSE
#> 
#> $payout
#> [1] 0
#> 
#> $blackjack
#> [1] FALSE
#>