CSES - Datatähti 2018 alku - Results
Submission details
Task:Bittijono
Sender:Shrike
Submission time:2017-10-11 15:29:33 +0300
Language:Haskell
Status:READY
Result:7
Feedback
groupverdictscore
#1ACCEPTED7
#20
#30
#40
Test results
testverdicttimegroup
#1ACCEPTED0.06 s1details
#2ACCEPTED0.06 s1details
#3ACCEPTED0.07 s1details
#4ACCEPTED0.06 s1details
#5ACCEPTED0.06 s1details
#6ACCEPTED0.06 s1details
#7ACCEPTED0.05 s1details
#8ACCEPTED0.07 s1details
#9ACCEPTED0.06 s1details
#10ACCEPTED0.05 s1details
#11--2details
#12ACCEPTED0.04 s2details
#13--2details
#14--2details
#15--2details
#16--2details
#17--2details
#18--2details
#19--2details
#20--2details
#21--3details
#22--3details
#23--3details
#24--3details
#25--3details
#26--3details
#27--3details
#28--3details
#29--3details
#30--3details
#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: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()

input/code.hs:51:12: Warning: Defined but not used: `n'

input/code.hs:51:14: Warning: Defined but not used: `j'

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 "" = ""
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 _ _ "" = "0101010101000"
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

correct output
1

user output
0

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
01

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
011

Test 6

Group: 1

Verdict: ACCEPTED

input
6

correct output
101

user output
010

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
0100

Test 10

Group: 1

Verdict: ACCEPTED

input
10

correct output
1001

user output
0110

Test 11

Group: 2

Verdict:

input
38

correct output
1101011

user output
(empty)

Test 12

Group: 2

Verdict: ACCEPTED

input
13

correct output
11011

user output
00100

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)