13 lines
304 B
Haskell
13 lines
304 B
Haskell
module Skat.Render where
|
|
|
|
import Data.List
|
|
import Data.Vector (Vector, toList)
|
|
|
|
import Skat.Card
|
|
|
|
render :: HasCard c => [c] -> IO ()
|
|
render = putStrLn . intercalate "\n" . zipWith (\n c -> show n ++ ") " ++ show c) [0..] . map toCard
|
|
|
|
renderVector :: Vector Card -> IO ()
|
|
renderVector = render . toList
|