Merkkijono

input/code.hs:16:1: Warning:
    Top-level binding with no type signature: main :: IO ()

import Data.List


j :: String -> String
dropFirst :: [String] -> [String]
j "" = ""
j (xs)
  | and [length x == 1 | x <- g] = xs
  | otherwise = j (concat (dropFirst g))
  where g = group xs
dropFirst [] = []
dropFirst x
  | length (head x) /= 1 = tail x
  | otherwise = head x : dropFirst (tail x)

main = do
  line <- getLine
  putStrLn (j line)

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