Merkkijono

input/code.hs:16: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 (xs)
  | not (matches xs) = xs
  | otherwise = j (dropFirst xs)
dropFirst x
  | length (head g) /= 1 = concat (tail g)
  | otherwise = head g ++ dropFirst (concat (tail g))
  where g = group x

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

Test 1

Verdict: RUNTIME ERROR

code: Prelude.head: empty list

Test 2

Verdict: ACCEPTED

Test 3

Verdict: TIME LIMIT EXCEEDED

Test 4

Verdict: RUNTIME ERROR

code: Prelude.head: empty list

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