Code Submission Evaluation System Login

Datatähti 2018 alku

Start:2017-10-02 00:00:00
End:2017-10-16 00:00:00
 

Tasks | Messages | Scoreboard | Statistics


CSES - Datatähti 2018 alku - Results
History
2017-10-02 12:07:50100
Task:Kyselyt
Sender:FSMnArmosta
Submission time:2017-10-02 12:07:50
Language:Haskell
Status:READY
Score:100

Feedback

groupverdictscore
#1ACCEPTED12
#2ACCEPTED25
#3ACCEPTED63

Test results

testverdicttime (s)group
#1ACCEPTED0.03 / 1.001details
#2ACCEPTED0.05 / 1.002details
#3ACCEPTED0.04 / 1.003details

Compiler report

input/code.hs:2:1: Warning:
    The import of `Data.List' is redundant
      except perhaps to import instances from `Data.List'
    To import instances alone, use: import Data.List()

input/code.hs:7:1: Warning:
    Top-level binding with no type signature:
      toActualInt :: forall t t1. Maybe (t, t1) -> t

input/code.hs:7:1: Warning:
    Pattern match(es) are non-exhaustive
    In an equation for `toActualInt': Patterns not matched: Nothing

input/code.hs:7:23: Warning: Defined but not used: `b'

input/code.hs:13:1: Warning:
    Top-level binding with no type signature:
      numbersBefore :: Int -> (Int, Int)

input/code.hs:14:1: Warning:
    Top-level binding with no type signature: numberAt :: Int -> [Char]

Code

import Control.Monad
import Data.List

import qualified Data.ByteString as B
import qualified Data.ByteString.Char8 as C8

toActualInt (Just (a, b)) = a

numberLengthSum :: Int -> Int -> Int -> (Int, Int)
numberLengthSum soFar powerOfTen maximumIndex = if tentative > maximumIndex then (soFar, powerOfTen) else numberLengthSum tentative (powerOfTen + 1) maximumIndex
    where tentative = soFar + (10^powerOfTen-10^(powerOfTen-1))*powerOfTen

numbersBefore a = numberLengthSum 1 1 a
numberAt a = [(show integerAt)!!((a-charactersBefore) `rem` powerOfTen)]
    where (charactersBefore, powerOfTen) = numbersBefore a
          integerAt = 10^(powerOfTen-1) + ((a - charactersBefore) `div` powerOfTen)

main :: IO ()
main = do
    num <- getLine
    inputs <- replicateM (read num) B.getLine
    let queries = map (toActualInt . C8.readInt) inputs
    putStrLn (unlines (map (numberAt) (queries)))

Test details

Test 1

Group: 1

Verdict: ACCEPTED

input
1000
582
214
723
273
480
280
237
204
134
210
565
640
784
508
846
532
465
952
205
...
view   save

correct output
0
1
7
7
6
1
5
4
7
6
2
2
2
2
8
2
1
3
1
8
...
view   save

user output
0
1
7
7
6
1
5
4
7
6
2
2
2
2
8
2
1
3
1
8
...
view   save

Test 2

Group: 2

Verdict: ACCEPTED

input
1000
615664
916441
627600
279508
126605
944125
25887
440405
352957
206746
951305
821686
716797
333476
430123
167570
619834
411383
459670
...
view   save

correct output
1
2
3
2
2
8
7
9
8
3
7
1
9
8
4
3
1
9
9
6
...
view   save

user output
1
2
3
2
2
8
7
9
8
3
7
1
9
8
4
3
1
9
9
6
...
view   save

Test 3

Group: 3

Verdict: ACCEPTED

input
1000
672274832941907421
260504693279721732
646999966092970935
100853063389774434
469646937576313460
292789544562527987
202678876957048242
921044261294332160
293497307441838185
889420403130803486
887773296767104352
272588988734184089
900854413164191389
306838570888252671
321818592757748092
632312861733842235
590425060048634753
921705179835679834
711775852688052272
...
view   save

correct output
7
2
2
0
9
7
7
2
0
4
0
3
0
5
9
9
3
1
2
7
...
view   save

user output
7
2
2
0
9
7
7
2
0
4
0
3
0
5
9
9
3
1
2
7
...
view   save