在函数参数上使用haskell中的map

Question

我在 Haskell 中创建了两个对象，主要是一张王牌和手牌。

trump = Card Spade Two
myhand = [Card Diamond Three, Card Spade Two]

其中卡片表示为：

data Card = Card Suit Rank

我编写了一个名为retrieveSuit 的函数，它检索黑桃、方块、红心等牌的花色。

retrieveSuit :: Card -> Suit
retrieveSuit (Card suit _) = suit

我遇到的问题是我正在尝试编写一个函数来比较王牌和手牌的花色并查看手牌是否包含王牌，但我在映射 trump 和 myhand 的两个论点时遇到问题，因为我只知道如何映射一个论点，而不知道如何映射两者。

checkTrump :: Card -> [Card] -> Bool
checkTrump trump myhand = (map retrieveSuit myhand) (retrieveSuit trump) if trump == myhand then True else False

当我运行时，我得到错误

error: parse error on input `if'

我是否将函数retrieveSuit 正确应用于checkTrump 的两个参数？在这种情况下，程序将输出 True，因为手中的牌确实包含黑桃，它也是王牌的花色。

编辑： 更新第二种情况。如果我要返回与王牌相同花色的手牌，而不是返回真假：

checkTrump :: Card -> [Card] -> Card
checkTrump trump myhand = filter ((cardSuit trump) `elem` (map cardSuit myhand))

Answer 1

我认为你过于复杂了：

checkTrump trump myhand = (retrieveSuit trump) `elem` (map retrieveSuit myhand)

（对我来说，对于trump 参数，函数只取花色而不是整张牌对我来说更有意义。但上面的内容应该适用于您尝试创建的函数。）

对于第二种情况，您的函数签名实际上没有多大意义，因为您无法保证手中只有一张王牌。可能不止一个——也可能没有！所以对我来说最有意义的是将其更改为返回一个列表，并且只使用 filter 函数（我还更改了名称以避免混淆，并使其更适合函数的功能）：

getTrumpsInHand :: Card -> [Card] -> [Card]
getTrumpsInHand trump hand = filter checkSuit hand
                                where checkSuit card = retrieveSuit card == retrieveSuit trump