-- | Plays randomly, cooperates or defects with equal probability.
randy :: DiscreteGame g => Player g
randy = "Randy" ::: randomly
randy :: DiscreteGame g => Player g
randy = "Randy" ::: randomly
randy = "Randy" ::: randomly