CSES - Datatähti 2018 alku - Results
Submission details
Task:Kyselyt
Sender:Tanko
Submission time:2017-10-04 20:58:22 +0300
Language:Haskell
Status:READY
Result:12
Feedback
groupverdictscore
#1ACCEPTED12
#20
#30
Test results
testverdicttimegroup
#1ACCEPTED0.06 s1details
#2--2details
#3--3details

Compiler report

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...

Code

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 details

Test 1

Group: 1

Verdict: ACCEPTED

input
1000
582
214
723
273
...

correct output
0
1
7
7
6
...

user output
0
1
7
7
6
...
Truncated

Test 2

Group: 2

Verdict:

input
1000
615664
916441
627600
279508
...

correct output
1
2
3
2
2
...

user output
(empty)

Test 3

Group: 3

Verdict:

input
1000
672274832941907421
260504693279721732
646999966092970935
100853063389774434
...

correct output
7
2
2
0
9
...

user output
(empty)