CSES - Datatähti 2018 alku - Results
Submission details
Task:Bittijono
Sender:FSMnArmosta
Submission time:2017-10-08 15:41:07 +0300
Language:Haskell
Status:READY
Result:49
Feedback
groupverdictscore
#1ACCEPTED7
#2ACCEPTED15
#3ACCEPTED27
#40
Test results
testverdicttimegroup
#1ACCEPTED0.05 s1details
#2ACCEPTED0.06 s1details
#3ACCEPTED0.06 s1details
#4ACCEPTED0.06 s1details
#5ACCEPTED0.05 s1details
#6ACCEPTED0.05 s1details
#7ACCEPTED0.06 s1details
#8ACCEPTED0.06 s1details
#9ACCEPTED0.04 s1details
#10ACCEPTED0.06 s1details
#11ACCEPTED0.05 s2details
#12ACCEPTED0.06 s2details
#13ACCEPTED0.06 s2details
#14ACCEPTED0.06 s2details
#15ACCEPTED0.05 s2details
#16ACCEPTED0.06 s2details
#17ACCEPTED0.04 s2details
#18ACCEPTED0.07 s2details
#19ACCEPTED0.06 s2details
#20ACCEPTED0.06 s2details
#21ACCEPTED0.07 s3details
#22ACCEPTED0.06 s3details
#23ACCEPTED0.21 s3details
#24ACCEPTED0.14 s3details
#25ACCEPTED0.09 s3details
#26ACCEPTED0.13 s3details
#27ACCEPTED0.16 s3details
#28ACCEPTED0.20 s3details
#29ACCEPTED0.13 s3details
#30ACCEPTED0.12 s3details
#31--4details
#32--4details
#33--4details
#34--4details
#35--4details
#36--4details
#37--4details
#38--4details
#39--4details
#40--4details

Compiler report

input/code.hs:4:1: Warning:
    Top-level binding with no type signature:
      combinations :: forall a a1.
                      (Integral a, Num a1) =>
                      a1 -> a1 -> a1 -> a -> a1

input/code.hs:4:20: Warning: Defined but not used: `potential0'

input/code.hs:4:31: Warning: Defined but not used: `potential1'

input/code.hs:12:1: Warning:
    Top-level binding with no type signature:
      startingPoint :: forall a a1 b.
                       (Integral b, Num a, Num a1, Ord a) =>
                       a -> a -> b -> a1

input/code.hs:12:41: Warning:
    Defaulting the following constraint(s) to type `Integer'
      (Integral a0)
        arising from a use of `combinations' at input/code.hs:12:41-52
      (Num a0) arising from the literal `1' at input/code.hs:12:68
    In the first argument of `(>)', namely
      `combinations tentative 0 1 1'
    In the expression: combinations tentative 0 1 1 > target
    In the expression:
      if combinations tentative 0 1...

Code

import Numeric (showIntAtBase)
import Data.Char (intToDigit)

combinations soFar potential0 potential1 0 = soFar
combinations soFar potential0 potential1 bitstring =
    if bit == 0
        then combinations (soFar + potential0) potential0 (potential1 + potential0) rest
        else combinations (soFar + potential1) (potential0 + potential1) potential1 rest
    where bit = bitstring `rem` 2
          rest = bitstring `div` 2

startingPoint current target layer = if combinations tentative 0 1 1 > target then 2^(layer-1) else startingPoint tentative target (layer + 1)
    where tentative = if combinations (current * 2 + 1) 0 1 1 > combinations (current * 2) 0 1 1 then current * 2 + 1 else current * 2

search current target = if combinations 0 1 1 current == target then current else search (current + 1) target

main :: IO ()
main = do
    num <- getLine
    let target = read num :: Int
    putStrLn (showIntAtBase 2 intToDigit (search (startingPoint 1 target 1) target) "")

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
100

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
1000

Test 8

Group: 1

Verdict: ACCEPTED

input
8

correct output
1100

user output
1100

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: ACCEPTED

input
38

correct output
1101011

user output
1101011

Test 12

Group: 2

Verdict: ACCEPTED

input
13

correct output
11011

user output
11011

Test 13

Group: 2

Verdict: ACCEPTED

input
90

correct output
111001010

user output
100100010

Test 14

Group: 2

Verdict: ACCEPTED

input
25

correct output
110010

user output
101100

Test 15

Group: 2

Verdict: ACCEPTED

input
82

correct output
111001101

user output
100010011

Test 16

Group: 2

Verdict: ACCEPTED

input
94

correct output
1100011110

user output
1000011100

Test 17

Group: 2

Verdict: ACCEPTED

input
100

correct output
1111001001

user output
1001001111

Test 18

Group: 2

Verdict: ACCEPTED

input
99

correct output
110010010

user output
100011010

Test 19

Group: 2

Verdict: ACCEPTED

input
98

correct output
110110010

user output
100111010

Test 20

Group: 2

Verdict: ACCEPTED

input
92

correct output
100110001

user output
100011001

Test 21

Group: 3

Verdict: ACCEPTED

input
1666

correct output
101101100100101

user output
100100010101010

Test 22

Group: 3

Verdict: ACCEPTED

input
897

correct output
11101001101010

user output
10100010110100

Test 23

Group: 3

Verdict: ACCEPTED

input
4466

correct output
111101010110100101

user output
101001001110001011

Test 24

Group: 3

Verdict: ACCEPTED

input
4240

correct output
11011001011010101

user output
10101011010011011

Test 25

Group: 3

Verdict: ACCEPTED

input
3089

correct output
1011001010100101

user output
1010010101001101

Test 26

Group: 3

Verdict: ACCEPTED

input
4697

correct output
11010101101010110

user output
10010101001010100

Test 27

Group: 3

Verdict: ACCEPTED

input
4608

correct output
11010110101001010

user output
10101101010010100

Test 28

Group: 3

Verdict: ACCEPTED

input
4625

correct output
111011001100101001

user output
100010101110110110

Test 29

Group: 3

Verdict: ACCEPTED

input
4611

correct output
11010101010101100

user output
10101101011010100

Test 30

Group: 3

Verdict: ACCEPTED

input
4917

correct output
10110100101010110

user output
10010101011010010

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)