Submission #12489267

---

Source Code Expand

{-# LANGUAGE BangPatterns #-}
import           Control.Exception           (assert)
import           Control.Monad
import           Control.Monad.Primitive
import qualified Control.Monad.ST            as ST
import qualified Data.Array.IO               as IO
import qualified Data.Array.ST               as ST
import qualified Data.Array.Unboxed          as A
import           Data.Bits
import qualified Data.ByteString.Char8       as BS
import           Data.Char
import           Data.Foldable
import           Data.List
import           Data.Maybe
import qualified Data.Sequence               as Seq
import qualified Data.Set                    as Set
import qualified Data.Vector.Unboxed         as V
import qualified Data.Vector.Unboxed.Mutable as VM
import           Debug.Trace

readInt = fst . fromJust . BS.readInt
readIntList = map readInt . BS.words
getInt = readInt <$> BS.getLine
getIntList = readIntList <$> BS.getLine
getIntVec n = V.unfoldrN n (BS.readInt . BS.dropWhile isSpace) <$> BS.getLine

readInteger = fst . fromJust . BS.readInteger
readIntegerList = map readInteger . BS.words
getInteger = readInteger <$> BS.getLine
getIntegerList = readIntegerList <$> BS.getLine

inf :: Int
inf = 10^18

main = do
  s <- getLine

  -- dropsS, dropsH, dropsD, dropsC : S, H, D, C を狙ったときのすて札
  -- bS, bH, bD, bC : bit mask A,K,Q,J,10 (5-bit)
  let solve :: String -> [String] -> [String] -> [String] -> [String] ->
              Int -> Int -> Int -> Int -> String
      solve (c1:c2:cs) dropsS dropsH dropsD dropsC bS bH bD bC =
        let cs' = if c2 == '1' then drop 1 cs else cs
            b0 | c1 == 'S' = bS
               | c1 == 'H' = bH
               | c1 == 'D' = bD
               | c1 == 'C' = bC
            b | c2 == '1' = 1
              | c2 == 'J' = 2
              | c2 == 'Q' = 4
              | c2 == 'K' = 8
              | c2 == 'A' = 16
              | otherwise = 0
            b' = b0 .|. b
            bS' = if c1 == 'S' then b' else bS
            bH' = if c1 == 'H' then b' else bH
            bD' = if c1 == 'D' then b' else bD
            bC' = if c1 == 'C' then b' else bC
            d = [c1,c2] ++ if c2 == '1' then "0" else ""
            dropsS' = dropsS ++ if c1 /= 'S' || b == 0 then [d] else []
            dropsH' = dropsH ++ if c1 /= 'H' || b == 0 then [d] else []
            dropsD' = dropsD ++ if c1 /= 'D' || b == 0 then [d] else []
            dropsC' = dropsC ++ if c1 /= 'C' || b == 0 then [d] else []
            drops | c1 == 'S' = dropsS
                  | c1 == 'H' = dropsH
                  | c1 == 'D' = dropsD
                  | c1 == 'C' = dropsC
        in
          if b' == 31
          then concat drops
          else solve cs' dropsS' dropsH' dropsD' dropsC' bS' bH' bD' bC'

      ans = solve s [] [] [] [] 0 0 0 0

  if null ans
    then print 0
    else putStrLn ans

Submission Info

Judge Result