CSES - Datatähti 2018 alku

Submission details
Task:	Bittijono
Sender:	FSMnArmosta
Submission time:	2017-10-08 15:41:07 +0300
Language:	Haskell
Status:	READY
Result:	49

Feedback
group	verdict	score
#1	ACCEPTED	7
#2	ACCEPTED	15
#3	ACCEPTED	27
#4	TIME LIMIT EXCEEDED	0

Test results
test	verdict	time	group
#1	ACCEPTED	0.05 s	1	details
#2	ACCEPTED	0.06 s	1	details
#3	ACCEPTED	0.06 s	1	details
#4	ACCEPTED	0.06 s	1	details
#5	ACCEPTED	0.05 s	1	details
#6	ACCEPTED	0.05 s	1	details
#7	ACCEPTED	0.06 s	1	details
#8	ACCEPTED	0.06 s	1	details
#9	ACCEPTED	0.04 s	1	details
#10	ACCEPTED	0.06 s	1	details
#11	ACCEPTED	0.05 s	2	details
#12	ACCEPTED	0.06 s	2	details
#13	ACCEPTED	0.06 s	2	details
#14	ACCEPTED	0.06 s	2	details
#15	ACCEPTED	0.05 s	2	details
#16	ACCEPTED	0.06 s	2	details
#17	ACCEPTED	0.04 s	2	details
#18	ACCEPTED	0.07 s	2	details
#19	ACCEPTED	0.06 s	2	details
#20	ACCEPTED	0.06 s	2	details
#21	ACCEPTED	0.07 s	3	details
#22	ACCEPTED	0.06 s	3	details
#23	ACCEPTED	0.21 s	3	details
#24	ACCEPTED	0.14 s	3	details
#25	ACCEPTED	0.09 s	3	details
#26	ACCEPTED	0.13 s	3	details
#27	ACCEPTED	0.16 s	3	details
#28	ACCEPTED	0.20 s	3	details
#29	ACCEPTED	0.13 s	3	details
#30	ACCEPTED	0.12 s	3	details
#31	TIME LIMIT EXCEEDED	--	4	details
#32	TIME LIMIT EXCEEDED	--	4	details
#33	TIME LIMIT EXCEEDED	--	4	details
#34	TIME LIMIT EXCEEDED	--	4	details
#35	TIME LIMIT EXCEEDED	--	4	details
#36	TIME LIMIT EXCEEDED	--	4	details
#37	TIME LIMIT EXCEEDED	--	4	details
#38	TIME LIMIT EXCEEDED	--	4	details
#39	TIME LIMIT EXCEEDED	--	4	details
#40	TIME LIMIT EXCEEDED	--	4	details

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` view save

correct output
`1` view save

user output
`1` view save

Test 2

Group: 1

Verdict: ACCEPTED

input
`2` view save

correct output
`11` view save

user output
`11` view save

Test 3

Group: 1

Verdict: ACCEPTED

input
`3` view save

correct output
`10` view save

user output
`10` view save

Test 4

Group: 1

Verdict: ACCEPTED

input
`4` view save

correct output
`1111` view save

user output
`1111` view save

Test 5

Group: 1

Verdict: ACCEPTED

input
`5` view save

correct output
`110` view save

user output
`100` view save

Test 6

Group: 1

Verdict: ACCEPTED

input
`6` view save

correct output
`101` view save

user output
`101` view save

Test 7

Group: 1

Verdict: ACCEPTED

input
`7` view save

correct output
`1110` view save

user output
`1000` view save

Test 8

Group: 1

Verdict: ACCEPTED

input
`8` view save

correct output
`1100` view save

user output
`1100` view save

Test 9

Group: 1

Verdict: ACCEPTED

input
`9` view save

correct output
`1101` view save

user output
`1011` view save

Test 10

Group: 1

Verdict: ACCEPTED

input
`10` view save

correct output
`1001` view save

user output
`1001` view save

Test 11

Group: 2

Verdict: ACCEPTED

input
`38` view save

correct output
`1101011` view save

user output
`1101011` view save

Test 12

Group: 2

Verdict: ACCEPTED

input
`13` view save

correct output
`11011` view save

user output
`11011` view save

Test 13

Group: 2

Verdict: ACCEPTED

input
`90` view save

correct output
`111001010` view save

user output
`100100010` view save

Test 14

Group: 2

Verdict: ACCEPTED

input
`25` view save

correct output
`110010` view save

user output
`101100` view save

Test 15

Group: 2

Verdict: ACCEPTED

input
`82` view save

correct output
`111001101` view save

user output
`100010011` view save

Test 16

Group: 2

Verdict: ACCEPTED

input
`94` view save

correct output
`1100011110` view save

user output
`1000011100` view save

Test 17

Group: 2

Verdict: ACCEPTED

input
`100` view save

correct output
`1111001001` view save

user output
`1001001111` view save

Test 18

Group: 2

Verdict: ACCEPTED

input
`99` view save

correct output
`110010010` view save

user output
`100011010` view save

Test 19

Group: 2

Verdict: ACCEPTED

input
`98` view save

correct output
`110110010` view save

user output
`100111010` view save

Test 20

Group: 2

Verdict: ACCEPTED

input
`92` view save

correct output
`100110001` view save

user output
`100011001` view save

Test 21

Group: 3

Verdict: ACCEPTED

input
`1666` view save

correct output
`101101100100101` view save

user output
`100100010101010` view save

Test 22

Group: 3

Verdict: ACCEPTED

input
`897` view save

correct output
`11101001101010` view save

user output
`10100010110100` view save

Test 23

Group: 3

Verdict: ACCEPTED

input
`4466` view save

correct output
`111101010110100101` view save

user output
`101001001110001011` view save

Test 24

Group: 3

Verdict: ACCEPTED

input
`4240` view save

correct output
`11011001011010101` view save

user output
`10101011010011011` view save

Test 25

Group: 3

Verdict: ACCEPTED

input
`3089` view save

correct output
`1011001010100101` view save

user output
`1010010101001101` view save

Test 26

Group: 3

Verdict: ACCEPTED

input
`4697` view save

correct output
`11010101101010110` view save

user output
`10010101001010100` view save

Test 27

Group: 3

Verdict: ACCEPTED

input
`4608` view save

correct output
`11010110101001010` view save

user output
`10101101010010100` view save

Test 28

Group: 3

Verdict: ACCEPTED

input
`4625` view save

correct output
`111011001100101001` view save

user output
`100010101110110110` view save

Test 29

Group: 3

Verdict: ACCEPTED

input
`4611` view save

correct output
`11010101010101100` view save

user output
`10101101011010100` view save

Test 30

Group: 3

Verdict: ACCEPTED

input
`4917` view save

correct output
`10110100101010110` view save

user output
`10010101011010010` view save

Test 31

Group: 4

Verdict: TIME LIMIT EXCEEDED

input
`178555` view save

correct output
`1011010110110101010110110` view save

user output
(empty)

Test 32

Group: 4

Verdict: TIME LIMIT EXCEEDED

input
`864856` view save

correct output
`10111010110110100100101010010` view save

user output
(empty)

Test 33

Group: 4

Verdict: TIME LIMIT EXCEEDED

input
`112146` view save

correct output
`1101110101011001100100110` view save

user output
(empty)

Test 34

Group: 4

Verdict: TIME LIMIT EXCEEDED

input
`741124` view save

correct output
`1011010011010101100101011010` view save

user output
(empty)

Test 35

Group: 4

Verdict: TIME LIMIT EXCEEDED

input
`511902` view save

correct output
`1011010100011010100101001110` view save

user output
(empty)

Test 36

Group: 4

Verdict: TIME LIMIT EXCEEDED

input
`920019` view save

correct output
`11100100101101010101001101010` view save

user output
(empty)

Test 37

Group: 4

Verdict: TIME LIMIT EXCEEDED

input
`933943` view save

correct output
`10101011010100100110100111001` view save

user output
(empty)

Test 38

Group: 4

Verdict: TIME LIMIT EXCEEDED

input
`973410` view save

correct output
`1011010101011010101010101001` view save

user output
(empty)

Test 39

Group: 4

Verdict: TIME LIMIT EXCEEDED

input
`954943` view save

correct output
`10110110010011010100100110101` view save

user output
(empty)

Test 40

Group: 4

Verdict: TIME LIMIT EXCEEDED

input
`911674` view save

correct output
`1010110010110101010101010110` view save

user output
(empty)

Datatähti 2018 alku

Bittijono

Compiler report

Code

Test details

Test 1

Test 2

Test 3

Test 4

Test 5

Test 6

Test 7

Test 8

Test 9

Test 10

Test 11

Test 12

Test 13

Test 14

Test 15

Test 16

Test 17

Test 18

Test 19

Test 20

Test 21

Test 22

Test 23

Test 24

Test 25

Test 26

Test 27

Test 28

Test 29

Test 30

Test 31

Test 32

Test 33

Test 34

Test 35

Test 36

Test 37

Test 38

Test 39

Test 40

Tasks

Submissions (FSMnArmosta)