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
WA × 3
WA × 13
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