module Mahjong.Set where

import Mahjong.Tile
import Data.List (sort)
import Data.Char (isDigit)
import Data.Either

type MSet = [MTile]

showMSet xs = fst $ foldr f ("",Nothing) $ sort xs
    where f (MTile col n) (o,p)  = let o' = show n ++ (if Just col == p then ""
                                         else show col) ++ o in (o', Just col)

readMSet r = fst $ foldr f ([],Man) $ map g r
    where g x | isDigit x = Left ((read [x])::Int)
              | otherwise = Right ((read [x])::MCol)
          f (Left a) (xs,col) = ((MTile col a):xs,col)
          f (Right a) (xs,col) = (xs,a)