Cards

gistfile1.fs

type Suit =
  | Spades
  | Hearts
  | Diamonds
  | Clubs
  
type Rank =
  | Ace
  | King
  | Queen
  | Jack
  | Number of int

type Card = {
  Suit : Suit
  Rank : Rank
}

let suits = [Spades; Hearts; Diamonds; Clubs]
let ranks = ([2..10] |> List.map (fun n -> Number n)) @ [Jack; Queen; King; Ace]

let deck =
  suits
  |> List.collect (fun suit ->
       ranks |> List.map (fun rank -> { Suit = suit; Rank = rank; }))