Kyselyt

input/code.hs:8:45: Warning:
    Defaulting the following constraint(s) to type `Integer'
      (Enum a0)
        arising from the arithmetic sequence `0 .. '
        at input/code.hs:8:45-49
      (Num a0) arising from the literal `0' at input/code.hs:8:46
      (Show a0) arising from a use of `show' at input/code.hs:8:39-42
    In the second argument of `concatMap', namely `[0 .. ]'
    In the expression: concatMap (map (read . return) . show) [0 .. ]
    In an equation for `ns':
        ns = concatMap (map (read . return) . show) [0 .. ]

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

module Main where

readInt :: IO Int
readInt = do l <- getLine
             return (read l :: Int)

ns :: [Int]
ns = concatMap (map (read . return) . show) [0..]

query :: Int -> IO ()
query 0 = return ()
query n = do i <- readInt
             print $ ns !! i
             query (n-1)

main = readInt >>= query

Test 1

Group: 1

Verdict: ACCEPTED

Test 2

Group: 2

Verdict: TIME LIMIT EXCEEDED

Test 3

Group: 3

Verdict: TIME LIMIT EXCEEDED