Submission #371128


Source Code Expand

main :: IO ()
main = getLine >>= putStrLn . unwords . reverse . solve . reverse . words

solve :: [String] -> [String]
solve (cs:"not":"not":css) | cs /= "not" = solve (cs:css)
solve (cs:css) = cs : solve css
solve [] = []

Submission Info

Submission Time
Task A - 二重否定除去法則
User itchyny
Language Haskell (Haskell Platform 2014.2.0.0)
Score 100
Code Size 230 Byte
Status AC
Exec Time 55 ms
Memory 2116 KB

Judge Result

Set Name All
Score / Max Score 100 / 100
Status
AC × 19
Set Name Test Cases
All scrambled_00.txt, scrambled_01.txt, scrambled_02.txt, scrambled_03.txt, scrambled_04.txt, scrambled_05.txt, scrambled_06.txt, scrambled_07.txt, scrambled_08.txt, scrambled_09.txt, scrambled_10.txt, scrambled_11.txt, scrambled_12.txt, scrambled_13.txt, scrambled_14.txt, scrambled_15.txt, scrambled_16.txt, scrambled_17.txt, scrambled_18.txt
Case Name Status Exec Time Memory
scrambled_00.txt AC 55 ms 1300 KB
scrambled_01.txt AC 26 ms 1304 KB
scrambled_02.txt AC 26 ms 1432 KB
scrambled_03.txt AC 26 ms 1300 KB
scrambled_04.txt AC 26 ms 1428 KB
scrambled_05.txt AC 31 ms 1948 KB
scrambled_06.txt AC 30 ms 2116 KB
scrambled_07.txt AC 29 ms 1948 KB
scrambled_08.txt AC 28 ms 1948 KB
scrambled_09.txt AC 28 ms 2004 KB
scrambled_10.txt AC 30 ms 1944 KB
scrambled_11.txt AC 29 ms 1944 KB
scrambled_12.txt AC 29 ms 1944 KB
scrambled_13.txt AC 28 ms 2072 KB
scrambled_14.txt AC 29 ms 1944 KB
scrambled_15.txt AC 29 ms 1944 KB
scrambled_16.txt AC 30 ms 1952 KB
scrambled_17.txt AC 28 ms 2052 KB
scrambled_18.txt AC 31 ms 2068 KB