Merkkijono

input/code.hs:2:1: Warning:
    Top-level binding with no type signature:
      chop :: forall a. Eq a => [a] -> a -> [a]

input/code.hs:2:9: Warning: Defined but not used: `a'

input/code.hs:5:1: Warning:
    Top-level binding with no type signature:
      body :: forall a. Eq a => [a] -> [a] -> [a]

chop [] a = []
chop (first:rest) a = if first == a then (chop rest a) else (first:rest)

body before [] = before
body [] (now:after) = body [now] after
body (latest:before) (now:after) = if now == latest then body (chop before latest) (chop after now) else body (now:latest:before) after

main :: IO ()
main = do
    text <- getLine
    putStrLn (reverse (body [] text))

Test 1

Verdict: ACCEPTED

Test 2

Verdict: ACCEPTED

Test 3

Verdict: ACCEPTED

Test 4

Verdict: ACCEPTED

Test 5

Verdict: ACCEPTED

Test 6

Verdict: ACCEPTED

Test 7

Verdict: ACCEPTED

Test 8

Verdict: ACCEPTED

Test 9

Verdict: ACCEPTED

Test 10

Verdict: ACCEPTED