Haskell 哈斯克尔卡片过滤器

我有一组卡片

initialCards :: GameState
initialCards = [[Card s1 r1, Card s2 r2] | s1 <- [minBound .. maxBound]::[Suit], r1 <- [minBound.. maxBound]::[Rank], 
                                       s2 <- [minBound .. maxBound]::[Suit], r2 <- [minBound .. maxBound]::[Rank], 
                                       s1 /= s2, r1 /= r2]

initialCards:：游戏状态
initialCards=[[Card s1 r1，Card s2 r2]| s1您使用卡片列表上的筛选函数，并为其提供一个将套装和菱形映射为True的函数。
您确实需要提供更多上下文（周围代码）用你的问题，更清楚地解释你想要实现的目标。请不要假设我们都阅读并内化了你的想法。当你写一个问题，如“我如何编写代码”，人们可能会说“你尝试了什么？”请重新阅读并添加一些关于你想法的信息。什么样的卡片上有等级西装和钻石？@DaxFohl我相信Justin的意思，或者看看上下文。