Discriminated union to represent the outcomes of comparing two cards.

gistfile1.txt

   /// The possible outcomes when comparing two Poker hands.
    type Outcome = Win | Draw | Lose
        with 
        static member FromRanks (rank1 : Rank) (rank2 : Rank) =
            let sortValue1, sortValue2 = rank1.SortValue, rank2.SortValue
            if sortValue1 > sortValue2 then
                Win
            elif sortValue1 < sortValue2 then
                Lose
            else
                Draw
        override o.ToString() =
            match o with
            | Win -> "Win" | Draw -> "Draw" | Lose -> "Lose"