Kyselyt

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

input/code.hs:4:33: Warning:
    Defaulting the following constraint(s) to type `Integer'
      (Enum a0)
        arising from the arithmetic sequence `1 .. '
        at input/code.hs:4:33-37
      (Num a0) arising from the literal `1' at input/code.hs:4:34
      (Show a0) arising from a use of `show' at input/code.hs:4: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

import Control.Monad (replicateM, forM_)

main = do
  let getNth n = concatMap show [1..] !! n
  rs <- readLn
  ns <- replicateM rs readLn
  forM_ ns $ putStrLn . return . getNth . pred

Test 1

Group: 1

Verdict: ACCEPTED

Test 2

Group: 2

Verdict: TIME LIMIT EXCEEDED

Test 3

Group: 3

Verdict: TIME LIMIT EXCEEDED