哈斯克爾 - 顯示實例的多個數據類型

我目前正在一盤棋的作業和我的作品被定義哈斯克爾 - 顯示實例的多個數據類型

data Piece = Piece { piecetype :: PieceType, color :: PieceColor } 
    data PieceType = Pawn | Knight | Bishop | Rook | Queen | King 
    data PieceColor = Black | White deriving Eq

現在我要打印件作爲單個字符（王= K，女王= q，knight = n等）黑色棋子的值是其白色值的大小（king = K，queen = Q，knight = N等）所以我做了三個顯示實例

instance Show PieceColor where 
     show Black = "B" 
     show White = "W" 

    instance Show PieceType where 
     show Pawn = "P" 
     show Knight = "N" 
     show Bishop = "B" 
     show Rook = "R" 
     show Queen = "Q" 
     show King = "K"

第三個問題是

instance Show Piece where 
     show (piecetype, color) = show piecetype 
            if show color == "W" 
            then show piecetype 
            else toUpper (show piecetype)

我收到以下錯誤（我也嘗試過比這多很多，但是根據這個鏈接，我似乎相當接近Something somewhat similar

Couldn't match expected type `Piece' with actual type `(t0, t1)'

我感謝所有幫助親切的問候，我

來源

2012-10-16 M4st3rM1nd

它應該是'show（piece piecetype color）'而不是'show（piecetype，color）'。 – Satvik

在我的一端有一些錯誤，它的作品就像一個魅力，謝謝Satvik – M4st3rM1nd

直接答：

instance Show Piece where 
    show (Piece piecetype Black) = map toLower $ show piecetype 
    show (Piece piecetype White) = show piecetype

說明：

Piece是一個帶有構造函數Piece的數據類型（類型名稱和構造函數對於您的情況都是相同的）而不是元組。所以你應該在構造函數上模式匹配，而不是在元組上。
toUpper和toLower存在於Data.Char和Char時工作之類的東西"B"是String（String是類型代名詞[Char]）。因此，要使String大寫，您可以使用map toUpper。
像show color == "B"這樣的比較字符串不是很有效，而是可以在構造函數名稱上使用模式匹配。

來源

2012-10-16 14:57:34 Satvik

我也建議直接在顏色上進行模式匹配，而不是'如果顯示顏色==「B」...' – hammar

哈斯克爾 - 顯示實例的多個數據類型

回答

相關問題