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 |
|
|
|
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 |