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
AC × 3
AC × 11
WA × 8
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