Submission #1128600
Source Code Expand
main :: IO () main = do str <- getLine putStrLn $ if solve str then "YES" else "NO" solve :: String -> Bool solve [] = True solve ss | length6Str == "dreamer" || length6Str == "eraser" = solve $ drop 6 ss | length5Str == "dream" || length5Str == "erase" = solve $ drop 5 ss | otherwise = False where length6Str = take 6 ss length5Str = take 5 ss
Submission Info
Submission Time | |
---|---|
Task | C - Daydream |
User | nmjiri |
Language | Haskell (GHC 7.10.3) |
Score | 0 |
Code Size | 389 Byte |
Status | WA |
Exec Time | 8 ms |
Memory | 4988 KB |
Judge Result
Set Name | Sample | All | ||||||
---|---|---|---|---|---|---|---|---|
Score / Max Score | 0 / 0 | 0 / 300 | ||||||
Status |
|
|
Set Name | Test Cases |
---|---|
Sample | subtask0_0.txt, subtask0_1.txt, subtask0_2.txt |
All | subtask0_0.txt, subtask0_1.txt, subtask0_2.txt, subtask1_0.txt, subtask1_1.txt, subtask1_10.txt, subtask1_11.txt, subtask1_12.txt, subtask1_13.txt, subtask1_14.txt, subtask1_15.txt, subtask1_2.txt, subtask1_3.txt, subtask1_4.txt, subtask1_5.txt, subtask1_6.txt, subtask1_7.txt, subtask1_8.txt, subtask1_9.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
subtask0_0.txt | AC | 1 ms | 380 KB |
subtask0_1.txt | AC | 1 ms | 380 KB |
subtask0_2.txt | AC | 1 ms | 380 KB |
subtask1_0.txt | AC | 8 ms | 4988 KB |
subtask1_1.txt | AC | 8 ms | 4988 KB |
subtask1_10.txt | WA | 8 ms | 4988 KB |
subtask1_11.txt | WA | 8 ms | 4988 KB |
subtask1_12.txt | WA | 8 ms | 4988 KB |
subtask1_13.txt | WA | 8 ms | 4988 KB |
subtask1_14.txt | AC | 8 ms | 4988 KB |
subtask1_15.txt | AC | 8 ms | 4988 KB |
subtask1_2.txt | AC | 8 ms | 4988 KB |
subtask1_3.txt | WA | 8 ms | 4988 KB |
subtask1_4.txt | AC | 8 ms | 4988 KB |
subtask1_5.txt | WA | 8 ms | 4988 KB |
subtask1_6.txt | AC | 8 ms | 4988 KB |
subtask1_7.txt | AC | 8 ms | 4988 KB |
subtask1_8.txt | WA | 8 ms | 4988 KB |
subtask1_9.txt | WA | 8 ms | 4988 KB |