TypeScript version of the card game presented in the talk Domain Modelling Made Functional by Scott Wlaschin.

CardGame.ts

export enum Suit {
    Club,
    Diamond,
    Spade,
    Heart,
}

export enum Rank {
    Two = 2,
    Three,
    Four,
    Five,
    Six,
    Seven,
    Eight,
    Nine,
    Ten,
    Jack,
    Queen,
    King,
    Ace,
}

export type Card = { suit: Suit; rank: Rank; };

export type Hand = Card[];
export type Deck = Card[];
export type ShuffledDeck = Card[];

export type Player = { name: string; hand: Hand; };
export type Game = { deck: Deck; players: Player[]; };

export type ReturnDeck = { deck: ShuffledDeck; card: Card };
export type Deal = (input: ShuffledDeck) => ReturnDeck;

export type Shuffle = (input: Deck) => ShuffledDeck;

export type Pickup = { hand: Hand, card: Card};
export type PickupCard = (input: Pickup) => Hand;