Submission #1770685
Source Code Expand
dfs :: Int -> Int -> String -> Int -> Int -> [Bool] -> [Bool] dfs a b s na nb result | null s = result | head s == 'a' = if na + nb < a + b then dfs a b s' (na+1) nb (result ++ [True]) else dfs a b s' na nb (result ++ [False]) | head s == 'b' = if na + nb < a + b && nb < b then dfs a b s' na (nb+1) (result ++ [True]) else dfs a b s' na nb (result ++ [False]) | otherwise = dfs a b s' na nb (result ++ [False]) where s' = tail s solve (t:s:_) = dfs a b s 0 0 [] where (_:a:b:_) = map read $ words t main = getContents >>= mapM_ (\x -> putStrLn (if x then "YES" else "NO")).solve.lines
Submission Info
Submission Time | |
---|---|
Task | B - Qualification simulator |
User | waaadaaap |
Language | Haskell (GHC 7.10.3) |
Score | 0 |
Code Size | 701 Byte |
Status | WA |
Exec Time | 2104 ms |
Memory | 13692 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 | TLE | 2104 ms | 13692 KB |
02.txt | TLE | 2104 ms | 13692 KB |
03.txt | TLE | 2104 ms | 13692 KB |
04.txt | TLE | 2104 ms | 13692 KB |
05.txt | TLE | 2104 ms | 11644 KB |
06.txt | TLE | 2104 ms | 13692 KB |
07.txt | TLE | 2104 ms | 13692 KB |
08.txt | TLE | 2104 ms | 13692 KB |
09.txt | TLE | 2104 ms | 13692 KB |
10.txt | TLE | 2104 ms | 13692 KB |
s1.txt | WA | 2 ms | 508 KB |
s2.txt | WA | 1 ms | 508 KB |
s3.txt | WA | 1 ms | 380 KB |