Kyselyt

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

input/code.hs:2:33: Warning:
    Defaulting the following constraint(s) to type `Integer'
      (Enum a0)
        arising from the arithmetic sequence `1 .. '
        at input/code.hs:2:33-37
      (Num a0) arising from the literal `1' at input/code.hs:2:34
      (Show a0) arising from a use of `show' at input/code.hs:2:28-31
    In the second argument of `concatMap', namely `[1 .. ]'
    In the first argument of `(!!)', namely `concatMap show [1 .. ]'
    In the expression: concatMap show [1 .. ] !! n

main = do
  let getNth n = concatMap show [1..] !! n
  n <- readLn
  putChar (getNth n)

Test 1

Group: 1

Verdict: WRONG ANSWER

Test 2

Group: 2

Verdict: WRONG ANSWER

Test 3

Group: 3

Verdict: WRONG ANSWER