23 lines
769 B
Haskell
23 lines
769 B
Haskell
module Magic where
|
|
|
|
import Mana
|
|
import Card
|
|
|
|
-------------------------------------------------------------------------------
|
|
-- Cards
|
|
-------------------------------------------------------------------------------
|
|
|
|
|
|
data Deck = Deck [Card]
|
|
{-
|
|
curve :: Deck -> [(Int, Int)]
|
|
curve (Deck cards) = do
|
|
let largest = maximum (map converted cards)
|
|
map (\x -> (x, length (filter (\(Card rarity _ cost _) -> rarity /= Land && converted cost == x) cards))) [0..largest]
|
|
|
|
cards = concat $ [ replicate 13 (Card Land "Swamp" (Cost [] [] []) [])
|
|
, replicate 13 (Card Land "Plains" (Cost [] [] []) [])
|
|
, replicate 4 (Card Mythic "Jace Beleren" (Cost [Standard 1 Colorless, Standard 2 Blue] [] []) [])
|
|
]
|
|
deck = Deck cards
|
|
-}
|