CSES - Datatähti 2018 alku - Results
Submission details
Task:Bittijono
Sender:Shrike
Submission time:2017-10-11 13:21:53 +0300
Language:Haskell
Status:READY
Result:7
Feedback
groupverdictscore
#1ACCEPTED7
#20
#30
#40
Test results
testverdicttimegroup
#1ACCEPTED0.06 s1details
#2ACCEPTED0.07 s1details
#3ACCEPTED0.04 s1details
#4ACCEPTED0.04 s1details
#5ACCEPTED0.07 s1details
#6ACCEPTED0.05 s1details
#7ACCEPTED0.06 s1details
#8ACCEPTED0.04 s1details
#9ACCEPTED0.07 s1details
#10ACCEPTED0.05 s1details
#110.06 s2details
#120.04 s2details
#130.06 s2details
#140.05 s2details
#150.05 s2details
#160.04 s2details
#170.06 s2details
#180.05 s2details
#190.05 s2details
#200.05 s2details
#210.06 s3details
#220.06 s3details
#230.07 s3details
#240.04 s3details
#250.07 s3details
#260.07 s3details
#270.05 s3details
#280.06 s3details
#290.06 s3details
#300.06 s3details
#310.06 s4details
#320.07 s4details
#330.05 s4details
#340.06 s4details
#350.05 s4details
#360.04 s4details
#370.07 s4details
#380.06 s4details
#390.05 s4details
#400.05 s4details

Compiler report

input/code.hs:2:1: Warning:
    Pattern match(es) are non-exhaustive
    In an equation for `nt':
        Patterns not matched:
            GHC.Types.I# #x
            with
            #x
            `notElem`
            [0#, 1#, 2#, 3#, 4#, 5#, 6#, 7#, 8#, 9#, 10#, 11#, 12#, 13#, 14#,
             15#, 16#, 17#, 18#, 19#, 20#, 21#, 22#, 23#, 24#, 25#, 26#, 27#,
             28#]

Code

nt :: Int -> Int
nt 0 = 0
nt 1 = 1
nt 2 = 3
nt 3 = 6
nt 4 = 11
nt 5 = 19
nt 6 = 32
nt 7 = 53
nt 8 = 87
nt 9 = 142
nt 10 = 231
nt 11 = 375
nt 12 = 608
nt 13 = 985
nt 14 = 1595
nt 15 = 2582
nt 16 = 4179
nt 17 = 6763
nt 18 = 10944
nt 19 = 17709
nt 20 = 28655
nt 21 = 46366
nt 22 = 75023
nt 23 = 121391
nt 24 = 196416
nt 25 = 317809
nt 26 = 514227
nt 27 = 832038
nt 28 = 1346267

getStr :: Int -> Int -> String
getStr n i
    | n == nt i = (concat $ replicate n "1")
    | n > nt i = getStr n (i+1)
    | otherwise = ""

ans :: Int -> String
ans 0   = ""
ans 1   = "1"
ans 2   = "11"
ans 3   = "10"
ans 4   = "1111"
ans 5   = "001"
ans 6   = "101"
ans 7   = "0111"
ans 8   = "0011"
ans 9   = "1011"
ans 10  = "1001"
ans n = getStr n 0

main :: IO()
main = do
	n <- getLine
	putStrLn (ans (read n :: Int))

Test details

Test 1

Group: 1

Verdict: ACCEPTED

input
1

correct output
1

user output
1

Test 2

Group: 1

Verdict: ACCEPTED

input
2

correct output
11

user output
11

Test 3

Group: 1

Verdict: ACCEPTED

input
3

correct output
10

user output
10

Test 4

Group: 1

Verdict: ACCEPTED

input
4

correct output
1111

user output
1111

Test 5

Group: 1

Verdict: ACCEPTED

input
5

correct output
110

user output
001

Test 6

Group: 1

Verdict: ACCEPTED

input
6

correct output
101

user output
101

Test 7

Group: 1

Verdict: ACCEPTED

input
7

correct output
1110

user output
0111

Test 8

Group: 1

Verdict: ACCEPTED

input
8

correct output
1100

user output
0011

Test 9

Group: 1

Verdict: ACCEPTED

input
9

correct output
1101

user output
1011

Test 10

Group: 1

Verdict: ACCEPTED

input
10

correct output
1001

user output
1001

Test 11

Group: 2

Verdict:

input
38

correct output
1101011

user output
(empty)

Test 12

Group: 2

Verdict:

input
13

correct output
11011

user output
(empty)

Test 13

Group: 2

Verdict:

input
90

correct output
111001010

user output
(empty)

Test 14

Group: 2

Verdict:

input
25

correct output
110010

user output
(empty)

Test 15

Group: 2

Verdict:

input
82

correct output
111001101

user output
(empty)

Test 16

Group: 2

Verdict:

input
94

correct output
1100011110

user output
(empty)

Test 17

Group: 2

Verdict:

input
100

correct output
1111001001

user output
(empty)

Test 18

Group: 2

Verdict:

input
99

correct output
110010010

user output
(empty)

Test 19

Group: 2

Verdict:

input
98

correct output
110110010

user output
(empty)

Test 20

Group: 2

Verdict:

input
92

correct output
100110001

user output
(empty)

Test 21

Group: 3

Verdict:

input
1666

correct output
101101100100101

user output
(empty)

Test 22

Group: 3

Verdict:

input
897

correct output
11101001101010

user output
(empty)

Test 23

Group: 3

Verdict:

input
4466

correct output
111101010110100101

user output
(empty)

Test 24

Group: 3

Verdict:

input
4240

correct output
11011001011010101

user output
(empty)

Test 25

Group: 3

Verdict:

input
3089

correct output
1011001010100101

user output
(empty)

Test 26

Group: 3

Verdict:

input
4697

correct output
11010101101010110

user output
(empty)

Test 27

Group: 3

Verdict:

input
4608

correct output
11010110101001010

user output
(empty)

Test 28

Group: 3

Verdict:

input
4625

correct output
111011001100101001

user output
(empty)

Test 29

Group: 3

Verdict:

input
4611

correct output
11010101010101100

user output
(empty)

Test 30

Group: 3

Verdict:

input
4917

correct output
10110100101010110

user output
(empty)

Test 31

Group: 4

Verdict:

input
178555

correct output
1011010110110101010110110

user output
(empty)

Test 32

Group: 4

Verdict:

input
864856

correct output
10111010110110100100101010010

user output
(empty)

Test 33

Group: 4

Verdict:

input
112146

correct output
1101110101011001100100110

user output
(empty)

Test 34

Group: 4

Verdict:

input
741124

correct output
1011010011010101100101011010

user output
(empty)

Test 35

Group: 4

Verdict:

input
511902

correct output
1011010100011010100101001110

user output
(empty)

Test 36

Group: 4

Verdict:

input
920019

correct output
11100100101101010101001101010

user output
(empty)

Test 37

Group: 4

Verdict:

input
933943

correct output
10101011010100100110100111001

user output
(empty)

Test 38

Group: 4

Verdict:

input
973410

correct output
1011010101011010101010101001

user output
(empty)

Test 39

Group: 4

Verdict:

input
954943

correct output
10110110010011010100100110101

user output
(empty)

Test 40

Group: 4

Verdict:

input
911674

correct output
1010110010110101010101010110

user output
(empty)