Submission #1460695


Source Code Expand

import qualified Data.ByteString.Char8 as B
import Data.Maybe

readInts :: IO [Int]
readInts = map readInt . B.words <$> B.getLine

readInt :: B.ByteString -> Int
readInt = fst . fromJust . B.readInt

main = do
  s <- getLine
  print (st_ring s)

st_ring = length . foldr remove ""

remove 'S' ('T':acc) = acc
remove c acc = c : acc

Submission Info

Submission Time
Task A - STring
User aimy
Language Haskell (GHC 7.10.3)
Score 300
Code Size 348 Byte
Status AC
Exec Time 25 ms
Memory 9596 KB

Judge Result

Set Name Sample Subtask1 All
Score / Max Score 0 / 0 200 / 200 100 / 100
Status
AC × 3
AC × 9
AC × 13
Set Name Test Cases
Sample example0, example1, example2
Subtask1 example0, example1, example2, sub_corner0, sub_corner1, sub_corner2, sub_rand0, handmade0, handmade1
All corner0, corner1, corner2, example0, example1, example2, handmade0, handmade1, maxrand0, sub_corner0, sub_corner1, sub_corner2, sub_rand0
Case Name Status Exec Time Memory
corner0 AC 25 ms 9596 KB
corner1 AC 24 ms 9596 KB
corner2 AC 21 ms 9596 KB
example0 AC 1 ms 380 KB
example1 AC 1 ms 380 KB
example2 AC 1 ms 380 KB
handmade0 AC 1 ms 380 KB
handmade1 AC 1 ms 380 KB
maxrand0 AC 22 ms 9468 KB
sub_corner0 AC 1 ms 508 KB
sub_corner1 AC 1 ms 508 KB
sub_corner2 AC 1 ms 508 KB
sub_rand0 AC 1 ms 508 KB