Task: | Bittijono |
Sender: | Shrike |
Submission time: | 2017-10-11 15:29:33 +0300 |
Language: | Haskell |
Status: | READY |
Result: | 7 |
group | verdict | score |
---|---|---|
#1 | ACCEPTED | 7 |
#2 | TIME LIMIT EXCEEDED | 0 |
#3 | TIME LIMIT EXCEEDED | 0 |
#4 | TIME LIMIT EXCEEDED | 0 |
test | verdict | time | group | |
---|---|---|---|---|
#1 | ACCEPTED | 0.06 s | 1 | details |
#2 | ACCEPTED | 0.06 s | 1 | details |
#3 | ACCEPTED | 0.07 s | 1 | details |
#4 | ACCEPTED | 0.06 s | 1 | details |
#5 | ACCEPTED | 0.06 s | 1 | details |
#6 | ACCEPTED | 0.06 s | 1 | details |
#7 | ACCEPTED | 0.05 s | 1 | details |
#8 | ACCEPTED | 0.07 s | 1 | details |
#9 | ACCEPTED | 0.06 s | 1 | details |
#10 | ACCEPTED | 0.05 s | 1 | details |
#11 | TIME LIMIT EXCEEDED | -- | 2 | details |
#12 | ACCEPTED | 0.04 s | 2 | details |
#13 | TIME LIMIT EXCEEDED | -- | 2 | details |
#14 | TIME LIMIT EXCEEDED | -- | 2 | details |
#15 | TIME LIMIT EXCEEDED | -- | 2 | details |
#16 | TIME LIMIT EXCEEDED | -- | 2 | details |
#17 | TIME LIMIT EXCEEDED | -- | 2 | details |
#18 | TIME LIMIT EXCEEDED | -- | 2 | details |
#19 | TIME LIMIT EXCEEDED | -- | 2 | details |
#20 | TIME LIMIT EXCEEDED | -- | 2 | details |
#21 | TIME LIMIT EXCEEDED | -- | 3 | details |
#22 | TIME LIMIT EXCEEDED | -- | 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() 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: TIME LIMIT EXCEEDED
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: TIME LIMIT EXCEEDED
input |
---|
90 |
correct output |
---|
111001010 |
user output |
---|
(empty) |
Test 14
Group: 2
Verdict: TIME LIMIT EXCEEDED
input |
---|
25 |
correct output |
---|
110010 |
user output |
---|
(empty) |
Test 15
Group: 2
Verdict: TIME LIMIT EXCEEDED
input |
---|
82 |
correct output |
---|
111001101 |
user output |
---|
(empty) |
Test 16
Group: 2
Verdict: TIME LIMIT EXCEEDED
input |
---|
94 |
correct output |
---|
1100011110 |
user output |
---|
(empty) |
Test 17
Group: 2
Verdict: TIME LIMIT EXCEEDED
input |
---|
100 |
correct output |
---|
1111001001 |
user output |
---|
(empty) |
Test 18
Group: 2
Verdict: TIME LIMIT EXCEEDED
input |
---|
99 |
correct output |
---|
110010010 |
user output |
---|
(empty) |
Test 19
Group: 2
Verdict: TIME LIMIT EXCEEDED
input |
---|
98 |
correct output |
---|
110110010 |
user output |
---|
(empty) |
Test 20
Group: 2
Verdict: TIME LIMIT EXCEEDED
input |
---|
92 |
correct output |
---|
100110001 |
user output |
---|
(empty) |
Test 21
Group: 3
Verdict: TIME LIMIT EXCEEDED
input |
---|
1666 |
correct output |
---|
101101100100101 |
user output |
---|
(empty) |
Test 22
Group: 3
Verdict: TIME LIMIT EXCEEDED
input |
---|
897 |
correct output |
---|
11101001101010 |
user output |
---|
(empty) |
Test 23
Group: 3
Verdict: TIME LIMIT EXCEEDED
input |
---|
4466 |
correct output |
---|
111101010110100101 |
user output |
---|
(empty) |
Test 24
Group: 3
Verdict: TIME LIMIT EXCEEDED
input |
---|
4240 |
correct output |
---|
11011001011010101 |
user output |
---|
(empty) |
Test 25
Group: 3
Verdict: TIME LIMIT EXCEEDED
input |
---|
3089 |
correct output |
---|
1011001010100101 |
user output |
---|
(empty) |
Test 26
Group: 3
Verdict: TIME LIMIT EXCEEDED
input |
---|
4697 |
correct output |
---|
11010101101010110 |
user output |
---|
(empty) |
Test 27
Group: 3
Verdict: TIME LIMIT EXCEEDED
input |
---|
4608 |
correct output |
---|
11010110101001010 |
user output |
---|
(empty) |
Test 28
Group: 3
Verdict: TIME LIMIT EXCEEDED
input |
---|
4625 |
correct output |
---|
111011001100101001 |
user output |
---|
(empty) |
Test 29
Group: 3
Verdict: TIME LIMIT EXCEEDED
input |
---|
4611 |
correct output |
---|
11010101010101100 |
user output |
---|
(empty) |
Test 30
Group: 3
Verdict: TIME LIMIT EXCEEDED
input |
---|
4917 |
correct output |
---|
10110100101010110 |
user output |
---|
(empty) |
Test 31
Group: 4
Verdict: TIME LIMIT EXCEEDED
input |
---|
178555 |
correct output |
---|
1011010110110101010110110 |
user output |
---|
(empty) |
Test 32
Group: 4
Verdict: TIME LIMIT EXCEEDED
input |
---|
864856 |
correct output |
---|
10111010110110100100101010010 |
user output |
---|
(empty) |
Test 33
Group: 4
Verdict: TIME LIMIT EXCEEDED
input |
---|
112146 |
correct output |
---|
1101110101011001100100110 |
user output |
---|
(empty) |
Test 34
Group: 4
Verdict: TIME LIMIT EXCEEDED
input |
---|
741124 |
correct output |
---|
1011010011010101100101011010 |
user output |
---|
(empty) |
Test 35
Group: 4
Verdict: TIME LIMIT EXCEEDED
input |
---|
511902 |
correct output |
---|
1011010100011010100101001110 |
user output |
---|
(empty) |
Test 36
Group: 4
Verdict: TIME LIMIT EXCEEDED
input |
---|
920019 |
correct output |
---|
11100100101101010101001101010 |
user output |
---|
(empty) |
Test 37
Group: 4
Verdict: TIME LIMIT EXCEEDED
input |
---|
933943 |
correct output |
---|
10101011010100100110100111001 |
user output |
---|
(empty) |
Test 38
Group: 4
Verdict: TIME LIMIT EXCEEDED
input |
---|
973410 |
correct output |
---|
1011010101011010101010101001 |
user output |
---|
(empty) |
Test 39
Group: 4
Verdict: TIME LIMIT EXCEEDED
input |
---|
954943 |
correct output |
---|
10110110010011010100100110101 |
user output |
---|
(empty) |
Test 40
Group: 4
Verdict: TIME LIMIT EXCEEDED
input |
---|
911674 |
correct output |
---|
1010110010110101010101010110 |
user output |
---|
(empty) |