Kyselyt

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

input/code.hs:7:15: Warning:
    Defaulting the following constraint(s) to type `Integer'
      (Enum a0)
        arising from the arithmetic sequence `1 .. n'
        at input/code.hs:7:15-20
      (Num a0) arising from the literal `1' at input/code.hs:7:16
      (Read a0) arising from a use of `readLn' at input/code.hs:6:14-19
    In the first argument of `forM_', namely `[1 .. n]'
    In the expression: forM_ [1 .. n]
    In a stmt of a 'do' block:
      forM_ [1 .. n]
      $ const
        $ do { m <- readLn;
               putChar $ (!! (m - 1)) $ mconcat $ map show [1 .. ];
               putChar '\n' }

input/code.hs:9:61: Warning:
    Defaulting the following constraint(s) to type `Integer'
      (Enum a0)
        arising from the arithmetic sequence `1 .. '
        at input/code.hs:9:61-65
      (Num a0) arising from the literal `1' at input/code.hs:9:62
      (Show a0) arising from a use...

import Data.Monoid
import Control.Monad

-- Aika hidas ratkaisu
main = do
	n <- readLn
	forM_ [1..n] $ const $ do
		m <- readLn
		putChar $ (!! (m - 1)) $ mconcat $ map show [1..]
		putChar '\n'

Test 1

Group: 1

Verdict: ACCEPTED

Test 2

Group: 2

Verdict: TIME LIMIT EXCEEDED

Test 3

Group: 3

Verdict: TIME LIMIT EXCEEDED