Merkkijono

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

import Data.List


j :: String -> String
matches :: String -> Bool
dropFirst :: [String] -> [String]
matches xs = length xs /= length (nub xs)
j "" = ""
j (xs)
  | not (matches xs) = xs
  | otherwise = j (concat (dropFirst (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: TIME LIMIT EXCEEDED

Test 2

Verdict: ACCEPTED

Test 3

Verdict: ACCEPTED

Test 4

Verdict: TIME LIMIT EXCEEDED

Test 5

Verdict: TIME LIMIT EXCEEDED

Test 6

Verdict: TIME LIMIT EXCEEDED

Test 7

Verdict: TIME LIMIT EXCEEDED

Test 8

Verdict: TIME LIMIT EXCEEDED

Test 9

Verdict: TIME LIMIT EXCEEDED

Test 10

Verdict: TIME LIMIT EXCEEDED