Submission #1773590
Source Code Expand
dfs :: Int -> Int -> String -> Int -> Int -> IO Bool dfs a b s na nb | null s = return True | head s == 'a' = if na + nb < a + b then putStrLn "YES" >> dfs a b s' (na+1) nb else putStrLn "NO" >> dfs a b s' na nb | head s == 'b' = if na + nb < a + b && nb < b then putStrLn "YES" >> dfs a b s' na (nb+1) else putStrLn "NO" >> dfs a b s' na nb | otherwise = putStrLn "NO" >> dfs a b s' na nb where s' = tail s solve (t:s:_) = dfs a b s 0 0 where (_:a:b:_) = map read $ words t main = getContents >>= solve.lines
Submission Info
Submission Time | |
---|---|
Task | B - Qualification simulator |
User | waaadaaap |
Language | Haskell (GHC 7.10.3) |
Score | 0 |
Code Size | 625 Byte |
Status | WA |
Exec Time | 39 ms |
Memory | 2812 KB |
Judge Result
Set Name | Sample | All | ||||
---|---|---|---|---|---|---|
Score / Max Score | 0 / 0 | 0 / 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 | WA | 38 ms | 2684 KB |
02.txt | WA | 38 ms | 2684 KB |
03.txt | WA | 39 ms | 2812 KB |
04.txt | WA | 39 ms | 2684 KB |
05.txt | WA | 33 ms | 2684 KB |
06.txt | WA | 37 ms | 2684 KB |
07.txt | WA | 39 ms | 2812 KB |
08.txt | WA | 39 ms | 2812 KB |
09.txt | WA | 38 ms | 2684 KB |
10.txt | WA | 38 ms | 2684 KB |
s1.txt | WA | 1 ms | 508 KB |
s2.txt | WA | 1 ms | 508 KB |
s3.txt | WA | 1 ms | 380 KB |