Type to represent a card

gistfile1.fs

    /// A playing card.
    type Card = { Rank : Rank; Suit : Suit } 
        with 
        static member FromString (s : String) =
            let rank, suit =
                match s.Length with
                | 2 -> s.Substring(0, 1), s.[1]
                  // The 10 case has three characters
                | 3 -> s.Substring(0, 2), s.[2]
                | _ -> raise (ArgumentException("Invalid card string: ", s))
            { Rank = Rank.FromString rank; Suit = Suit.FromChar suit}