📦 sleepyfran / duets

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24module Duets.Entities.MiniGame

open Duets.Common

let allSuits = Union.allCasesOf<Suit> ()

let allRanks = Union.allCasesOf<Rank> ()

/// Contains all the possible cards in a deck.
let allCards =
    List.allPairs allSuits allRanks
    |> List.map (fun (suit, rank) -> { Suit = suit; Rank = rank })

module Blackjack =
    /// Creates a new blackjack game given a bet.
    let create bet =
        { DealerHand =
            { Cards = []
              Score = ScoreType.Single 0 }
          PlayerHand =
            { Cards = []
              Score = ScoreType.Single 0 }
          Bet = bet }