bChiquet · October 31, 2016 10:26
diff --git a/.hs b/.hs
 --Haskell as OO code

 data Card = Card Rank Suit  -- my object data
  deriving (Eq, Show)       -- The "Card" objects inherits Eq, Show from its subcomponents (Eq = equals, Show = toString)
  
 instance Ord Card where     -- I say Card implements the interface Ord
  compare (Card rank1 _) (Card rank2 _) = compare rank1 rank2  -- Ord has the compare method so I implement it for Card
	--Haskell as OO code

	data Card = Card Rank Suit -- my object data
	deriving (Eq, Show) -- The "Card" objects inherits Eq, Show from its subcomponents (Eq = equals, Show = toString)

	instance Ord Card where -- I say Card implements the interface Ord
	compare (Card rank1 _) (Card rank2 _) = compare rank1 rank2 -- Ord has the compare method so I implement it for Card