Submission #1441598

Source Code Expand

main = putStrLn . solve =<< getLine

solve :: String -> String
solve s = if choku s then "YES" else "NO"

choku "" = True
choku s
    | any (==(last s)) "oku" && choku (dropLast 1 s) = True
    | takeLast 2 s == "ch" && choku (dropLast 2 s) = True
    | otherwise = False

takeLast n xs = drop (length xs - n) xs
dropLast n xs = take (length xs - n) xs

Submission Info

Submission Time
Task B - choku語
User hsanno
Language Haskell (GHC 7.10.3)
Score 100
Code Size 366 Byte
Status AC
Exec Time 2 ms
Memory 508 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 3
AC × 53
Set Name Test Cases
Sample subtask0-sample01.txt, subtask0-sample02.txt, subtask0-sample03.txt
All subtask0-sample01.txt, subtask0-sample02.txt, subtask0-sample03.txt, subtask1-01.txt, subtask1-02.txt, subtask1-03.txt, subtask1-04.txt, subtask1-05.txt, subtask1-06.txt, subtask1-07.txt, subtask1-08.txt, subtask1-09.txt, subtask1-10.txt, subtask1-11.txt, subtask1-12.txt, subtask1-13.txt, subtask1-14.txt, subtask1-15.txt, subtask1-16.txt, subtask1-17.txt, subtask1-18.txt, subtask1-19.txt, subtask1-20.txt, subtask1-21.txt, subtask1-22.txt, subtask1-23.txt, subtask1-24.txt, subtask1-25.txt, subtask1-26.txt, subtask1-27.txt, subtask1-28.txt, subtask1-29.txt, subtask1-30.txt, subtask1-31.txt, subtask1-32.txt, subtask1-33.txt, subtask1-34.txt, subtask1-35.txt, subtask1-36.txt, subtask1-37.txt, subtask1-38.txt, subtask1-39.txt, subtask1-40.txt, subtask1-41.txt, subtask1-42.txt, subtask1-43.txt, subtask1-44.txt, subtask1-45.txt, subtask1-46.txt, subtask1-47.txt, subtask1-48.txt, subtask1-49.txt, subtask1-50.txt
Case Name Status Exec Time Memory
subtask0-sample01.txt AC 1 ms 380 KB
subtask0-sample02.txt AC 1 ms 380 KB
subtask0-sample03.txt AC 1 ms 380 KB
subtask1-01.txt AC 1 ms 380 KB
subtask1-02.txt AC 1 ms 380 KB
subtask1-03.txt AC 1 ms 380 KB
subtask1-04.txt AC 1 ms 380 KB
subtask1-05.txt AC 1 ms 380 KB
subtask1-06.txt AC 1 ms 380 KB
subtask1-07.txt AC 1 ms 380 KB
subtask1-08.txt AC 1 ms 380 KB
subtask1-09.txt AC 1 ms 380 KB
subtask1-10.txt AC 1 ms 380 KB
subtask1-11.txt AC 1 ms 380 KB
subtask1-12.txt AC 1 ms 508 KB
subtask1-13.txt AC 1 ms 380 KB
subtask1-14.txt AC 1 ms 380 KB
subtask1-15.txt AC 1 ms 380 KB
subtask1-16.txt AC 1 ms 380 KB
subtask1-17.txt AC 1 ms 380 KB
subtask1-18.txt AC 1 ms 508 KB
subtask1-19.txt AC 1 ms 508 KB
subtask1-20.txt AC 1 ms 380 KB
subtask1-21.txt AC 1 ms 380 KB
subtask1-22.txt AC 1 ms 380 KB
subtask1-23.txt AC 1 ms 380 KB
subtask1-24.txt AC 1 ms 380 KB
subtask1-25.txt AC 1 ms 380 KB
subtask1-26.txt AC 1 ms 380 KB
subtask1-27.txt AC 1 ms 380 KB
subtask1-28.txt AC 1 ms 380 KB
subtask1-29.txt AC 1 ms 380 KB
subtask1-30.txt AC 1 ms 380 KB
subtask1-31.txt AC 1 ms 380 KB
subtask1-32.txt AC 1 ms 380 KB
subtask1-33.txt AC 1 ms 508 KB
subtask1-34.txt AC 1 ms 508 KB
subtask1-35.txt AC 1 ms 380 KB
subtask1-36.txt AC 1 ms 380 KB
subtask1-37.txt AC 1 ms 508 KB
subtask1-38.txt AC 1 ms 380 KB
subtask1-39.txt AC 1 ms 380 KB
subtask1-40.txt AC 1 ms 380 KB
subtask1-41.txt AC 1 ms 380 KB
subtask1-42.txt AC 1 ms 380 KB
subtask1-43.txt AC 1 ms 380 KB
subtask1-44.txt AC 1 ms 380 KB
subtask1-45.txt AC 1 ms 380 KB
subtask1-46.txt AC 1 ms 508 KB
subtask1-47.txt AC 1 ms 380 KB
subtask1-48.txt AC 1 ms 380 KB
subtask1-49.txt AC 2 ms 380 KB
subtask1-50.txt AC 1 ms 380 KB