CSES - Datatähti 2018 alku

Submission details
Task:	Bittijono
Sender:	FSMnArmosta
Submission time:	2017-10-02 23:08:57 +0300
Language:	Haskell
Status:	READY
Result:	22

Feedback
group	verdict	score
#1	ACCEPTED	7
#2	ACCEPTED	15
#3	RUNTIME ERROR	0
#4	RUNTIME ERROR	0

Test results
test	verdict	time	group
#1	ACCEPTED	0.05 s	1	details
#2	ACCEPTED	0.04 s	1	details
#3	ACCEPTED	0.06 s	1	details
#4	ACCEPTED	0.04 s	1	details
#5	ACCEPTED	0.04 s	1	details
#6	ACCEPTED	0.04 s	1	details
#7	ACCEPTED	0.05 s	1	details
#8	ACCEPTED	0.05 s	1	details
#9	ACCEPTED	0.04 s	1	details
#10	ACCEPTED	0.04 s	1	details
#11	ACCEPTED	0.05 s	2	details
#12	ACCEPTED	0.03 s	2	details
#13	ACCEPTED	0.05 s	2	details
#14	ACCEPTED	0.03 s	2	details
#15	ACCEPTED	0.04 s	2	details
#16	ACCEPTED	0.04 s	2	details
#17	ACCEPTED	0.04 s	2	details
#18	ACCEPTED	0.04 s	2	details
#19	ACCEPTED	0.05 s	2	details
#20	ACCEPTED	0.04 s	2	details
#21	RUNTIME ERROR	0.05 s	3	details
#22	RUNTIME ERROR	0.04 s	3	details
#23	RUNTIME ERROR	0.05 s	3	details
#24	RUNTIME ERROR	0.05 s	3	details
#25	RUNTIME ERROR	0.04 s	3	details
#26	RUNTIME ERROR	0.04 s	3	details
#27	RUNTIME ERROR	0.04 s	3	details
#28	RUNTIME ERROR	0.06 s	3	details
#29	RUNTIME ERROR	0.05 s	3	details
#30	RUNTIME ERROR	0.06 s	3	details
#31	RUNTIME ERROR	0.06 s	4	details
#32	RUNTIME ERROR	0.06 s	4	details
#33	RUNTIME ERROR	0.06 s	4	details
#34	RUNTIME ERROR	0.04 s	4	details
#35	RUNTIME ERROR	0.05 s	4	details
#36	RUNTIME ERROR	0.06 s	4	details
#37	RUNTIME ERROR	0.03 s	4	details
#38	RUNTIME ERROR	0.03 s	4	details
#39	RUNTIME ERROR	0.05 s	4	details
#40	RUNTIME ERROR	0.05 s	4	details

Code

{-

Inspiraatiota luntin taulun muodostukseen, komentokieli python3; teknisesti vielä haskellin kielinen palautus

from itertools import combinations
  2 
  3 def number(chain):
  4     q = 0
  5     for i in range(1, len(chain)+1):
  6         q += len(set(["".join(x) for x in combinations(chain, i)]))
  7     return q
  8 
  9 
 10 d = {}
 11 for l in range(1, 11):
 12     for i in range(2**l):
 13         bitstring = "0".join(format(i, str(l)+"b").split(" "))
 14         n = number(bitstring)
 15         if not n in d.keys():
 16             d[n] = bitstring
 17 
 18 print('"'.join(str(list([d[x] for x in range(1,101)])).split("'")))


-}

main :: IO ()
main = do
    num <- getLine
    let luntinTaulu = ["0", "00", "01", "0000", "001", "010", "0001", "0011", "0010", "0110", "0101", "00010", "00100", "01110", "00110", "00101", "01001", "011110", "01010", "000110", "000101", "001100", "001011", "001001", "001101", "0000101", "001010", "010010", "010110", "0001011", "0001001", "010101", "0001101", "0011101", "0001010", "00001100", "0100010", "0010100", "0010010", "00100001", "0010110", "0011010", "0110110", "0100110", "0010101", "00011011", "0100101", "0101001", "00010100", "00010010", "00011001", "001111101", "0101010", "00100100", "00011010", "00110011", "00111010", "00010101", "00101100", "01001110", "00100110", "00110110", "00101011", "01010001", "00100101", "00101101", "00101001", "01100110", "00110101", "001000100", "01001101", "01101001", "01011001", "00101010", "000111010", "000101100", "01001010", "01011010", "01010110", "001011100", "000101011", "000110010", "000100101", "001100010", "000101101", "000101001", "01010101", "0000111001", "001010001", "000110101", "001001011", "011001110", "001110101", "0011100001", "000101010", "001010011", "001100110", "001001101", "001101101", "0000110110"]

    putStrLn (luntinTaulu!!((read num)-1))

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

Test 5

Group: 1

Verdict: ACCEPTED

input
`5` view save

correct output
`110` view save

user output
`001` 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
`0001` 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
`0010` 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: ACCEPTED

input
`38` view save

correct output
`1101011` view save

user output
`0010100` view save

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

input
`90` view save

correct output
`111001010` view save

user output
`000110101` view save

Test 14

Group: 2

Verdict: ACCEPTED

input
`25` view save

correct output
`110010` view save

user output
`001101` view save

Test 15

Group: 2

Verdict: ACCEPTED

input
`82` view save

correct output
`111001101` view save

user output
`000110010` view save

Test 16

Group: 2

Verdict: ACCEPTED

input
`94` view save

correct output
`1100011110` view save

user output
`0011100001` view save

Test 17

Group: 2

Verdict: ACCEPTED

input
`100` view save

correct output
`1111001001` view save

user output
`0000110110` view save

Test 18

Group: 2

Verdict: ACCEPTED

input
`99` view save

correct output
`110010010` view save

user output
`001101101` view save

Test 19

Group: 2

Verdict: ACCEPTED

input
`98` view save

correct output
`110110010` view save

user output
`001001101` view save

Test 20

Group: 2

Verdict: ACCEPTED

input
`92` view save

correct output
`100110001` view save

user output
`011001110` view save

Test 21

Group: 3

Verdict: RUNTIME ERROR

input
`1666` view save

correct output
`101101100100101` view save

user output
(empty)

Error:

code: Prelude.(!!): index too large

Test 22

Group: 3

Verdict: RUNTIME ERROR

input
`897` view save

correct output
`11101001101010` view save

user output
(empty)

Error:

code: Prelude.(!!): index too large

Test 23

Group: 3

Verdict: RUNTIME ERROR

input
`4466` view save

correct output
`111101010110100101` view save

user output
(empty)

Error:

code: Prelude.(!!): index too large

Test 24

Group: 3

Verdict: RUNTIME ERROR

input
`4240` view save

correct output
`11011001011010101` view save

user output
(empty)

Error:

code: Prelude.(!!): index too large

Test 25

Group: 3

Verdict: RUNTIME ERROR

input
`3089` view save

correct output
`1011001010100101` view save

user output
(empty)

Error:

code: Prelude.(!!): index too large

Test 26

Group: 3

Verdict: RUNTIME ERROR

input
`4697` view save

correct output
`11010101101010110` view save

user output
(empty)

Error:

code: Prelude.(!!): index too large

Test 27

Group: 3

Verdict: RUNTIME ERROR

input
`4608` view save

correct output
`11010110101001010` view save

user output
(empty)

Error:

code: Prelude.(!!): index too large

Test 28

Group: 3

Verdict: RUNTIME ERROR

input
`4625` view save

correct output
`111011001100101001` view save

user output
(empty)

Error:

code: Prelude.(!!): index too large

Test 29

Group: 3

Verdict: RUNTIME ERROR

input
`4611` view save

correct output
`11010101010101100` view save

user output
(empty)

Error:

code: Prelude.(!!): index too large

Test 30

Group: 3

Verdict: RUNTIME ERROR

input
`4917` view save

correct output
`10110100101010110` view save

user output
(empty)

Error:

code: Prelude.(!!): index too large

Test 31

Group: 4

Verdict: RUNTIME ERROR

input
`178555` view save

correct output
`1011010110110101010110110` view save

user output
(empty)

Error:

code: Prelude.(!!): index too large

Test 32

Group: 4

Verdict: RUNTIME ERROR

input
`864856` view save

correct output
`10111010110110100100101010010` view save

user output
(empty)

Error:

code: Prelude.(!!): index too large

Test 33

Group: 4

Verdict: RUNTIME ERROR

input
`112146` view save

correct output
`1101110101011001100100110` view save

user output
(empty)

Error:

code: Prelude.(!!): index too large

Test 34

Group: 4

Verdict: RUNTIME ERROR

input
`741124` view save

correct output
`1011010011010101100101011010` view save

user output
(empty)

Error:

code: Prelude.(!!): index too large

Test 35

Group: 4

Verdict: RUNTIME ERROR

input
`511902` view save

correct output
`1011010100011010100101001110` view save

user output
(empty)

Error:

code: Prelude.(!!): index too large

Test 36

Group: 4

Verdict: RUNTIME ERROR

input
`920019` view save

correct output
`11100100101101010101001101010` view save

user output
(empty)

Error:

code: Prelude.(!!): index too large

Test 37

Group: 4

Verdict: RUNTIME ERROR

input
`933943` view save

correct output
`10101011010100100110100111001` view save

user output
(empty)

Error:

code: Prelude.(!!): index too large

Test 38

Group: 4

Verdict: RUNTIME ERROR

input
`973410` view save

correct output
`1011010101011010101010101001` view save

user output
(empty)

Error:

code: Prelude.(!!): index too large

Test 39

Group: 4

Verdict: RUNTIME ERROR

input
`954943` view save

correct output
`10110110010011010100100110101` view save

user output
(empty)

Error:

code: Prelude.(!!): index too large

Test 40

Group: 4

Verdict: RUNTIME ERROR

input
`911674` view save

correct output
`1010110010110101010101010110` view save

user output
(empty)

Error:

code: Prelude.(!!): index too large

Datatähti 2018 alku

Bittijono

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)