skat/Render.hs

module Render where

import Card
import Operations
import Data.List

render :: [Card] -> IO ()
render = putStrLn . intercalate "\n" . zipWith (\n c -> show n ++ ") " ++ show c) [0..]