gistfile1.hs

data TCard = Card Mast CardRang deriving (Eq, Ord, Show)
data Mast = Piki | Bubi | Kresti | Chervi deriving(Eq, Ord, Show)
data CardRang = C2 | C3 | C4 | C5 | C6 | C7 | C8 | C9 | C10 | Valet | Dama | Korol | Tyz deriving(Eq, Ord, Show)
{-
--prepared
isMinor :: TCard -> Bool
isMinor (Card _ b) = b <= C10

sameSuit :: TCard -> TCard -> Bool
sameSuit (Card m1 _) (Card m2 _) = m1 == m2 

beats :: TCard -> TCard -> Bool
beats (Card m1 r1) (Card m2 r2) = (m1 == m2) && (r1 > r2 )

beats2 :: TCard -> TCard -> Mast -> Bool
beats2 (Card m1 r1) (Card m2 r2) m = (beats (Card m1 r1) (Card m2 r2)) || ((m == m1) && (m /= m2))
-}

beatsList :: [TCard] -> TCard -> Mast -> [TCard]
--beatsList [Card cardsLst] (Card m2 r2) m = 

{- 
card1 :: TCard
card1 = Card Piki C2
card2 :: TCard
card2 = Card Piki C3
-}