Deal Cards to Players and Dealer

Deals 2 cards to each player and 1 card to the dealer. Dealer's 2nd card comes later.

Usage

deal_cards(num_players, deck)

Arguments

num_players

Number of players

deck

A shuffled deck of cards

Value

A list with player_hands, dealer_hand (1 card), and remaining deck

Examples

# Example: Deal to 2 players from a fresh deck
deck <- create_board(1)
result <- deal_cards(num_players = 2, deck)
result$player_hands  # list of two hands
#> [[1]]
#> [1] "4♠" "5♥"
#> 
#> [[2]]
#> [1] "9♠" "7♦"
#> 
result$dealer_hand   # single card
#> [1] "7♠"
length(result$deck)  # 52 - 2*2 - 1 = 47
#> [1] 47