Submission #1476827
Source Code Expand
import Control.Applicative import Control.Monad main :: IO () main = do [n, a, b] <- getInts ss <- getLine let ans = solve a b ss mapM_ putStrLn ans getInts :: IO [Int] getInts = map read . words <$> getLine solve :: Int -> Int -> String -> [String] solve a b ss = go ss 0 0 where go [] _ _ = [] go (c:cs) a' b' | a' + b' >= a + b = "No" : go cs a' b' | c == 'a' = "Yes" : go cs (a'+1) b' | c == 'b' && b' < b = "Yes" : go cs a' (b' + 1) | otherwise = "No" : go cs a' b'
Submission Info
Submission Time | |
---|---|
Task | B - Qualification simulator |
User | nmjiri |
Language | Haskell (GHC 7.10.3) |
Score | 200 |
Code Size | 550 Byte |
Status | AC |
Exec Time | 43 ms |
Memory | 5372 KB |
Judge Result
Set Name | Sample | All | ||||
---|---|---|---|---|---|---|
Score / Max Score | 0 / 0 | 200 / 200 | ||||
Status |
|
|
Set Name | Test Cases |
---|---|
Sample | s1.txt, s2.txt, s3.txt |
All | 01.txt, 02.txt, 03.txt, 04.txt, 05.txt, 06.txt, 07.txt, 08.txt, 09.txt, 10.txt, s1.txt, s2.txt, s3.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
01.txt | AC | 40 ms | 5244 KB |
02.txt | AC | 42 ms | 5372 KB |
03.txt | AC | 43 ms | 5372 KB |
04.txt | AC | 42 ms | 5372 KB |
05.txt | AC | 35 ms | 5244 KB |
06.txt | AC | 40 ms | 5244 KB |
07.txt | AC | 42 ms | 5372 KB |
08.txt | AC | 42 ms | 5372 KB |
09.txt | AC | 41 ms | 5372 KB |
10.txt | AC | 41 ms | 5372 KB |
s1.txt | AC | 1 ms | 508 KB |
s2.txt | AC | 1 ms | 508 KB |
s3.txt | AC | 1 ms | 508 KB |