CSES - Datatähti 2018 alku

Submission details
Task:	Bittijono
Sender:	Shrike
Submission time:	2017-10-11 15:26:17 +0300
Language:	Haskell
Status:	READY
Result:	7

Feedback
group	verdict	score
#1	ACCEPTED	7
#2	RUNTIME ERROR	0
#3	TIME LIMIT EXCEEDED	0
#4	TIME LIMIT EXCEEDED	0

Test results
test	verdict	time	group
#1	ACCEPTED	0.07 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.07 s	1	details
#6	ACCEPTED	0.06 s	1	details
#7	ACCEPTED	0.07 s	1	details
#8	ACCEPTED	0.06 s	1	details
#9	ACCEPTED	0.04 s	1	details
#10	ACCEPTED	0.07 s	1	details
#11	RUNTIME ERROR	0.05 s	2	details
#12	ACCEPTED	0.04 s	2	details
#13	RUNTIME ERROR	0.09 s	2	details
#14	RUNTIME ERROR	0.06 s	2	details
#15	RUNTIME ERROR	0.06 s	2	details
#16	RUNTIME ERROR	0.07 s	2	details
#17	RUNTIME ERROR	0.07 s	2	details
#18	RUNTIME ERROR	0.07 s	2	details
#19	RUNTIME ERROR	0.07 s	2	details
#20	RUNTIME ERROR	0.06 s	2	details
#21	TIME LIMIT EXCEEDED	--	3	details
#22	RUNTIME ERROR	0.84 s	3	details
#23	TIME LIMIT EXCEEDED	--	3	details
#24	TIME LIMIT EXCEEDED	--	3	details
#25	TIME LIMIT EXCEEDED	--	3	details
#26	TIME LIMIT EXCEEDED	--	3	details
#27	TIME LIMIT EXCEEDED	--	3	details
#28	TIME LIMIT EXCEEDED	--	3	details
#29	TIME LIMIT EXCEEDED	--	3	details
#30	TIME LIMIT EXCEEDED	--	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:2:1: Warning:
    The import of `Control.Monad' is redundant
      except perhaps to import instances from `Control.Monad'
    To import instances alone, use: import Control.Monad()

Code

import Data.List
import Control.Monad
-- This gives upper bounds to this task
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
nt n  = n

unique :: Eq a => [a] -> [a]
unique []       = []
unique (x : xs) = x : unique (filter (x /=) xs)

pts :: String -> Int
pts s =
    let x = subsequences s
    in length (unique x) -1

maxLst :: Int -> String
maxLst n
    | n `mod` 2 == 0 = concat $ replicate (n `div` 2) "01"
    | otherwise = (concat $ replicate ((n-1) `div` 2) "01") ++ "0"

replaceNth :: Int -> Char -> String -> String
replaceNth n j "" = error ("Empty list" ++ (show n) ++ (show j)) 
replaceNth n newVal (x:xs)
    | n == 0 = newVal:xs
    | otherwise = x:replaceNth (n-1) newVal xs

-- Awful function, but works as an idea
genStr :: Int -> Int -> String -> String
genStr n i s
    | pts s == n = s
    | pts sx == n = sx
    | pts sx < pts s = genStr n (i) (replaceNth (i-1) '1' sx)
    | otherwise = genStr n (i+1) sx
    where sx = replaceNth i '0' s

getStr :: Int -> Int -> String
getStr n i
    | n > nt i = getStr n (i+1)
    | n == nt i = maxLst i
    | otherwise = genStr n 0 (replicate (i) '1')

ans :: Int -> String
ans 0   = ""
ans 4   = "1111"
ans n = getStr n 0

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

Test details

Test 1

Group: 1

Verdict: ACCEPTED

input
`1` view save

correct output
`1` view save

user output
`0` 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
`01` 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
`011` view save

Test 6

Group: 1

Verdict: ACCEPTED

input
`6` view save

correct output
`101` view save

user output
`010` view save

Test 7

Group: 1

Verdict: ACCEPTED

input
`7` view save

correct output
`1110` view save

user output
`0111` view save

Test 8

Group: 1

Verdict: ACCEPTED

input
`8` view save

correct output
`1100` view save

user output
`0011` view save

Test 9

Group: 1

Verdict: ACCEPTED

input
`9` view save

correct output
`1101` view save

user output
`0100` view save

Test 10

Group: 1

Verdict: ACCEPTED

input
`10` view save

correct output
`1001` view save

user output
`0110` view save

Test 11

Group: 2

Verdict: RUNTIME ERROR

input
`38` view save

correct output
`1101011` view save

user output
(empty)

Error:

code: Empty list0'0'

Test 12

Group: 2

Verdict: ACCEPTED

input
`13` view save

correct output
`11011` view save

user output
`00100` view save

Test 13

Group: 2

Verdict: RUNTIME ERROR

input
`90` view save

correct output
`111001010` view save

user output
(empty)

Error:

code: Empty list0'0'

Test 14

Group: 2

Verdict: RUNTIME ERROR

input
`25` view save

correct output
`110010` view save

user output
(empty)

Error:

code: Empty list0'0'

Test 15

Group: 2

Verdict: RUNTIME ERROR

input
`82` view save

correct output
`111001101` view save

user output
(empty)

Error:

code: Empty list0'0'

Test 16

Group: 2

Verdict: RUNTIME ERROR

input
`94` view save

correct output
`1100011110` view save

user output
(empty)

Error:

code: Empty list0'0'

Test 17

Group: 2

Verdict: RUNTIME ERROR

input
`100` view save

correct output
`1111001001` view save

user output
(empty)

Error:

code: Empty list0'0'

Test 18

Group: 2

Verdict: RUNTIME ERROR

input
`99` view save

correct output
`110010010` view save

user output
(empty)

Error:

code: Empty list0'0'

Test 19

Group: 2

Verdict: RUNTIME ERROR

input
`98` view save

correct output
`110110010` view save

user output
(empty)

Error:

code: Empty list0'0'

Test 20

Group: 2

Verdict: RUNTIME ERROR

input
`92` view save

correct output
`100110001` view save

user output
(empty)

Error:

code: Empty list0'0'

Test 21

Group: 3

Verdict: TIME LIMIT EXCEEDED

input
`1666` view save

correct output
`101101100100101` view save

user output
(empty)

Test 22

Group: 3

Verdict: RUNTIME ERROR

input
`897` view save

correct output
`11101001101010` view save

user output
(empty)

Error:

code: Empty list0'0'

Test 23

Group: 3

Verdict: TIME LIMIT EXCEEDED

input
`4466` view save

correct output
`111101010110100101` view save

user output
(empty)

Test 24

Group: 3

Verdict: TIME LIMIT EXCEEDED

input
`4240` view save

correct output
`11011001011010101` view save

user output
(empty)

Test 25

Group: 3

Verdict: TIME LIMIT EXCEEDED

input
`3089` view save

correct output
`1011001010100101` view save

user output
(empty)

Test 26

Group: 3

Verdict: TIME LIMIT EXCEEDED

input
`4697` view save

correct output
`11010101101010110` view save

user output
(empty)

Test 27

Group: 3

Verdict: TIME LIMIT EXCEEDED

input
`4608` view save

correct output
`11010110101001010` view save

user output
(empty)

Test 28

Group: 3

Verdict: TIME LIMIT EXCEEDED

input
`4625` view save

correct output
`111011001100101001` view save

user output
(empty)

Test 29

Group: 3

Verdict: TIME LIMIT EXCEEDED

input
`4611` view save

correct output
`11010101010101100` view save

user output
(empty)

Test 30

Group: 3

Verdict: TIME LIMIT EXCEEDED

input
`4917` view save

correct output
`10110100101010110` view save

user output
(empty)

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 (Shrike)