我是一个OOP /势在必行的程序员,试图学习haskell,我正在开发一个卡片游戏作为练习.
当时,我试图定义库牌组如下:
data Suit = Hearts
| Diamonds
| Spades
| Clubs
deriving(Show, Eq)
type CardValue = Int
data Card = Ace {cSuit :: Suit}
| Two {cSuit :: Suit}
| Three {cSuit :: Suit}
| Four {cSuit :: Suit}
| Five {cSuit :: Suit}
| Six {cSuit :: Suit}
| Seven {cSuit :: Suit}
| Eight {cSuit :: Suit}
| Nine {cSuit :: Suit}
| Ten {cSuit :: Suit}
| Jack {cSuit :: Suit}
| Queen {cSuit :: …Run Code Online (Sandbox Code Playgroud)