type Suit = Hearts | Diamonds | Clubs | Spades

type Rank = Ace | King | Queen | Jack | Ten | Nine | Eight | Seven

type Card = 

    { Rank : Rank

      Suit : Suit }

​

let newCard (rank, suit) = 

    { Card.Rank = rank

      Card.Suit = suit }

​

let shuffleDeck deck = 

    let r = new System.Random()

    deck |> List.sortBy (fun _ -> r.Next())

let fullDeck = 

    let suits = 

        [Hearts; Diamonds; Clubs; Spades]

    let ranks = 

        [Ace ; King ; Queen ; Jack ; Ten ; Nine ; Eight ; Seven]

​

    [for s in suits do

          for r in ranks -> 

            newCard (r, s) ]

​

let f = 

    fullDeck

    |> shuffleDeck

​

let s = 

    fullDeck

    |> shuffleDeck   

​

Seq.iter2

    (fun x y -> printfn "%A - %A | %A - %A" x.Rank x.Suit y.Rank y.Suit) 

    f s