Submission #371147


Source Code Expand

main = mapM_ (putStrLn . solve) . lines =<< getContents
solve = unwords . f [] . reverse . words
f xs (a:b:c:ys)
  | a/="not" && b=="not" && c=="not" = f xs (a:ys)
  | otherwise = f (a:xs) (b:c:ys)
f xs ys = reverse ys ++ xs

Submission Info

Submission Time
Task A - 二重否定除去法則
User jasy
Language Haskell (Haskell Platform 2014.2.0.0)
Score 100
Code Size 229 Byte
Status AC
Exec Time 32 ms
Memory 1948 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 28 ms 1300 KB
scrambled_01.txt AC 28 ms 1304 KB
scrambled_02.txt AC 28 ms 1172 KB
scrambled_03.txt AC 28 ms 1296 KB
scrambled_04.txt AC 28 ms 1180 KB
scrambled_05.txt AC 30 ms 1936 KB
scrambled_06.txt AC 30 ms 1948 KB
scrambled_07.txt AC 31 ms 1940 KB
scrambled_08.txt AC 32 ms 1948 KB
scrambled_09.txt AC 31 ms 1948 KB
scrambled_10.txt AC 31 ms 1940 KB
scrambled_11.txt AC 31 ms 1944 KB
scrambled_12.txt AC 31 ms 1940 KB
scrambled_13.txt AC 30 ms 1944 KB
scrambled_14.txt AC 32 ms 1944 KB
scrambled_15.txt AC 31 ms 1936 KB
scrambled_16.txt AC 32 ms 1944 KB
scrambled_17.txt AC 29 ms 1944 KB
scrambled_18.txt AC 32 ms 1948 KB